Количество дней между двумя датами

Written on 16 Октября 2007. Posted in [Delphi] Алгоритмы

ПЕРЕМЕННЫЕ:

Year1, Month1, Day1,

Year2, Month2, Day2,

YearResult, MonthResult, DayResult: Word;

TDay1, TDay2, DateDiff: TDateTime;

КОД:

TDay1 := EncodeDate(Year1, Month1, Day1);

TDay2 := EncodeDate(Year2, Month2, Day2);

DateDiff := TDay2 - TDay1; {предположим, что TDay2 позднее, чем TDay1}

и содержит количество дней между датами.