Delphi-Help

Описание

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

Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях.

Пример кода

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 дней

Примечание

Целый день не должен начинаться с 00:00:00.