一个关于计算天数的问题 例如2004-3-3,2004-4-5,怎样能计算出这两个日期之间相差的天数呢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var Date1, Date2: TDateTime; MinuesDate: Integer;begin MinuesDate := Abs(Trunc(Date2 - Date1));end; daysbetween(strtodate('2004-3-3'),strtodate('2004-4-5')) uses DateUtils;function DaysBetween(const ANow, AThen: TDateTime): Integer; uses DateUtils;function DaysBetween(const ANow, AThen: TDateTime): Integer; 在DELPHI中用unidac连接DB2数据库问题 请教关于TApdComPort控件的问题 用SQL语句导入的问题请教?? DBGrid显示 分少看样子没有人能帮我,高分看看有没人有能帮我!!!! 如何动态创建excel单元格的问题? 烦请各位大虾帮忙 在数据库中存取录象资料 请问Ascii7编码的转换问题 怎么解决播放midi 和wav 的冲突? 感人的故事 请各位前辈推荐几本由初级转向中高级的好书
Date1, Date2: TDateTime;
MinuesDate: Integer;
begin
MinuesDate := Abs(Trunc(Date2 - Date1));
end;