mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 15:29:53 +02:00
12 lines
245 B
ObjectPascal
12 lines
245 B
ObjectPascal
Program Example12;
|
|
|
|
{ This program demonstrates the EncodeTime function }
|
|
|
|
Uses sysutils;
|
|
|
|
Var Hh,MM,SS,MS : Word;
|
|
|
|
Begin
|
|
DeCodeTime (Time,Hh,MM,SS,MS);
|
|
Writeln ('Present Time is : ',FormatDateTime('hh:mm:ss',EnCodeTime (HH,MM,SS,MS)));
|
|
End. |