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