Функция 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 датами.
