IncDay
Модуль: DateUtils
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
Функция возвращает дату и время, сохраненные в типе TDateTime, в котором день увеличивается на количество дней, указанное в параметре ANumberOfDays . Значение этого параметра может быть отрицательным.
Вот пример:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
program Foo; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; begin Writeln('Dzisiaj jest: ' + DateToStr(Now)); Writeln('Jutro będzie: ' + DateToStr(IncDay(Now))); Readln; end. |