mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-06-01 11:42:07 +00:00
19 lines
320 B
ObjectPascal
19 lines
320 B
ObjectPascal
program ExampleTime;
|
|
|
|
var
|
|
date: DateTimeRec;
|
|
seconds: Longint;
|
|
|
|
begin
|
|
|
|
ShowText;
|
|
|
|
GetTime(date);
|
|
GetDateTime(seconds);
|
|
Writeln('The current time is:');
|
|
Writeln(date.hour : 2, ':', date.minute : 2, ':', date.second : 2);
|
|
Writeln;
|
|
Writeln('Seconds since midnight, January 1, 1904:');
|
|
Writeln(-seconds);
|
|
|
|
end. |