IncMonth
Модуль: DateUtils
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;
Функция возвращает значение даты / времени TDateTime, в котором количество месяцев увеличивается / уменьшается на значение параметра NumberOfMonths . Значение может быть отрицательным:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program Foo; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var dtNow : TDateTime; begin dtNow := Now; Writeln('Dzisiaj jest: ' + DateTimeToStr(dtNow)); Writeln('Za miesiąc o tej porze będzie: ' + DateTimeToStr(IncMonth(dtNow))); Readln; end. |