Delphi如何比较两个时间值相差的天数5

发布网友发布时间：2023-10-12 11:50

共4个回答

热心网友时间：2024-12-15 05:36

uses 加入DateUtils 单元
●function DaysBetween(const ANow, AThen: TDateTime): Integer;

描述：
根据两个TDateTime类型的日期时间变量 ANow 和 AThen，DaysBetween函数能得到两者之间的
天数的差距。
DaysBetween 仅仅根据天数的不同来计算。因此，对于 1999年12月31日下午11点59分到
2000年1月1日 11点58分，该函数得到的结果是 0，因为两者之间的时间差别还差 1 分钟才到
1 天。

热心网友时间：2024-12-15 05:36

浮点是天后面的小时分钟，时间取整再相减就是天数差。

var daydif:integer;
begin

daydif=round(datetostr(date1)-datetostr(date2));

热心网友时间：2024-12-15 05:37

或者
var a,b:datetime;c:=string;
a:=strtodate('2012-12-3');
b:=strtodate('2012-12-12');
c:=floattostr(trunc(b-a));

热心网友时间：2024-12-15 05:38

StrToDateTime