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