mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 14:49:27 +02:00
12 lines
218 B
ObjectPascal
12 lines
218 B
ObjectPascal
Program Example10;
|
|
|
|
{ This program demonstrates the DecodeTime function }
|
|
|
|
Uses sysutils;
|
|
|
|
Var HH,MM,SS,MS: Word;
|
|
|
|
Begin
|
|
DecodeTime(Time,HH,MM,SS,MS);
|
|
Writeln (format('The time is %d:%d:%d.%d',[hh,mm,ss,ms]));
|
|
End. |