Советы по Delphi

         

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



Содержание раздела