Question

在delphi中计算两个日期相差天数的完整代码

代码要完整

Answer 1

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