YearOf
Moduł: DateUtils
program Foo;
{$APPTYPE CONSOLE}
uses
SysUtils, DateUtils;
begin
Writeln('Dzisiaj jest: ', DateTimeToStr(Now));
Writeln('-----');
Writeln('Rok: ', YearOf(Date));
Readln;
end.
Zobacz też:
program Foo;
{$APPTYPE CONSOLE}
uses
SysUtils, DateUtils;
begin
Writeln('Dzisiaj jest: ', DateTimeToStr(Now));
Writeln('-----');
Writeln('Rok: ', YearOf(Date));
Readln;
end.
Zobacz też: