ПЕРЕМЕННЫЕ:
|
|
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}
DecodeDate(DateDiff, YearResult, MonthResult,
DayResult); |
DateDiff имеет тип LongInt (хотя и является объектом TDateTime), и содержит
количество дней между датами. |