如何在Delphi中获得日期的差异？

Question

我有两个日期:1.2013年2月1日2.现在.所以2个日期之间有2天的差异.如何以编程方式在delphi中获得这些天数差异？

Answer 1

使用以下DaysBetween功能DateUtils:

var
  d1, d2: TDate;
begin

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

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