Количество дней между двумя датами 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]
