Question

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

有个字段为日期，格式为‘yyyy-mm-dd’，我想比较同一用户，两次输入日期之间相差的天数，不知道如何表达。
请帮助，先谢谢！

Answer 1

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 天。

Answer 2

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

var daydif:integer;
begin

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

Answer 3

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

Answer 4

StrToDateTime