mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-05-29 06:41:28 +00:00
13 lines
187 B
ObjectPascal
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. |