Функція DaySpan в Delphi видає дробове число днів між 2 датами.
DateUtils unit
function DaySpan (const ToDate, FromDate : TDateTime) : Double;
Функція DaySpan віднімає FromDate із ToDate, повертаючи дрібну різницю днів.
Повертаєме Double значення містить число днів як цілу частину, і залишок частини дня як дробову частину.
Наприклад, різниця 2 днів та 6 годин дала б значення 2.25.
Функція DaySpan: Знаходження різниці днів між двома значеннями 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 днів
Подібні функції, процедури та команди
DaysBetween — видає цілу кількість днів між 2 датами.
DaysInAMonth — видає кількість днів в місяці.
DaysInAYear — видає кількість днів в році.
