DaysBetween
Модуль: DateUtils
function DaysBetween(const ANow, AThen: TDateTime): Integer;
Функция рассчитывает разницу дней между двумя датами типа TDateTime , передаваемыми в параметрах ANow и AThen . Вот пример использования:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
program FooApp; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var A, B : TDateTime; Result : Integer; begin A := Now; B := EncodeDate(2007, 06, 10); Result := DaysBetween(A, B); Writeln('Różnica dni: ' + IntToStr(Result)); Readln; end. |