macintosh_cookbook/examples/date.pas
2020-05-07 18:47:11 +09:00

13 lines
187 B
ObjectPascal

program ExampleDate;
var
date: DateTimeRec;
begin
ShowText;
GetTime(date);
Writeln('The current date is:');
Writeln(date.year : 4, '-', date.month : 2, '-', date.day : 2);
end.