Количество дней между двумя датами I
ПЕРЕМЕННЫЕ:
| 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), и содержит количество дней между датами. [001402]
