|
|
DaySpan
Функция |
Выдает дробное число дней между 2 датами |
DateUtils unit |
| function DaySpan ( const ToDate, FromDate : TDateTime ) : Double;
| |
|
| Описание |
Функция DaySpan вычитает FromDate из ToDate, возвращая дробную разность дней.
Возвращаемое Double значение содержит число дней как целую часть, и остаток части дня как дробную часть.
Например, разность 2 дней и 6 часов дало бы значение 2.25
|
|
| Похожие команды |
|
| |
|
| Пример кода : Нахождение разности дней между двумя значениями date+time. |
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 дней
|
| | |
Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")
|
