IncYear
Модуль: DateUtils
function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;
Функция возвращает значение даты / времени, сохраненное как TDateTime , в котором количество лет увеличивается на размер параметра ANumberOfYears . Параметр AValue должен быть действительной датой, значение которой будет изменено:
|
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 rok o tej porze będzie: ' + DateTimeToStr(IncYear(dtNow))); Readln; end. |