Search code examples
delphidelphi-xe2

How to get difference of dates in Number of Days in Delphi?

I have two dates: 1. Feb 1, 2013 2. Now. So there is a difference of 2 days in between 2 dates. How can I get this difference of days in delphi programmatically?

Solution

  • Use the DaysBetween function found in DateUtils:

    var
  d1, d2: TDate;
begin

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

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