blob: 0b37a66afee22c773a1bf81fa0723e6568eb4d9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
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.
|
