delphi - 如何获得德尔福天数中的日期差异？

Question

我有两个日期:1. 2013年2月1日2. 现在。因此，2 个日期之间存在 2 天的差异。我怎样才能以编程方式得到delphi中的天数差异？

Answer 1

使用 DateUtils 中的 DaysBetween 函数:

var
  d1, d2: TDate;
begin

  d1 := EncodeDate(2013, 02, 01);
  d2 := EncodeDate(2013, 02, 04);

  ShowMessage(IntToStr(DaysBetween(d2, d1)));