3
{ Program to demonstrate the EpochToLocal function. }
7
Var Year,month,day,hour,minute,seconds : Word;
10
EpochToLocal (GetEpochTime,Year,month,day,hour,minute,seconds);
11
Writeln ('Current date : ',Day:2,'/',Month:2,'/',Year:4);
12
Writeln ('Current time : ',Hour:2,':',minute:2,':',seconds:2);