mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-29 08:29:18 +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.
|