Delphi-Help

DaySpan

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

DaySpan

Описание

function DaySpan ( const ToDate, FromDate : TDateTime ) : Double;

Функция DaySpan вычитает FromDate из ToDate, возвращая дробную разность дней.
Возвращаемое Double значение содержит число дней как целую часть, и остаток части дня как дробную часть.
Например, разность 2 дней и 6 часов дало бы значение 2.25

Пример кода

var
fromdate, toDate : TDateTime;
begin
// Установка наших переменных дат
fromDate := EncodeDateTime(2000, 01, 01, 0, 0, 0, 0);
toDate   := EncodeDateTime(2000, 01, 02, 12, 0, 0, 0);
// Отображение этих дат и дней между ними
ShowMessage('С даты = '+DateTimeToStr(fromDate));
ShowMessage('До даты = '+DateTimeToStr(toDate));
ShowMessage('Дробная разность дней = '+
FloatToStr(DaySpan(toDate, fromDate))+' дней');
end;

С даты = 01/01/2000
До даты = 02/01/2000 12:00:00
Дробная разность дней = 1.5 дней

Примечание

Авторизация



Счетчики