IncYear
Adam Boduch
IncYear
Moduł: DateUtils
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.
Zobacz też: