DaysBetween ()

function DaysBetween (const ToDate, FromDate:TDateTime): Integer;
Опис
Функція DaysBetween обраховує різницю FromDate з ToDate, повертаючи її в цілих днях.
Приклад
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;