22 lines
425 B
Plaintext
22 lines
425 B
Plaintext
MODULE Mytime;
|
|
|
|
FROM SysClock IMPORT
|
|
GetClock, DateTime;
|
|
FROM STextIO IMPORT
|
|
WriteString, WriteLn;
|
|
FROM FormatDT IMPORT
|
|
DateTimeToString;
|
|
|
|
VAR
|
|
CurrentTime: DateTime;
|
|
DateStr, TimeStr: ARRAY [0 .. 20] OF CHAR;
|
|
BEGIN
|
|
GetClock(CurrentTime);
|
|
DateTimeToString(CurrentTime, DateStr, TimeStr);
|
|
WriteString("Current time: ");
|
|
WriteString(DateStr);
|
|
WriteString(" ");
|
|
WriteString(TimeStr);
|
|
WriteLn;
|
|
END Mytime.
|