DaysBetween Функция Выдает целый число дней между 2 датами DateUtils unit

function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;

Описание Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях. Примечания Целый день не должен начинаться с 00:00:00. Похожие команды DaysInAMonth  Выдает число дней в месяце DaysInAYear  Выдает число дней в году DaySpan  Выдает дробное число дней между 2 датами		Пример кода : Нахождение разности дней между двумя значениями date+time. var   fromdate, toDate : TDateTime; begin   // Установка наших переменных дат   fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);   toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);   // Отображение этих дат и дней между ними   ShowMessage('С даты = '+DateTimeToStr(fromDate));   ShowMessage('До даты = '+DateTimeToStr(toDate));   ShowMessage('Целых дней = '+               IntToStr(DaysBetween(toDate, fromDate))+' дней'); end; С даты = 26/02/2000 10:00:00 До даты = 29/02/2000 09:00:00 Целых дней = 2 дней