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