1
2
3
4
5
6
7
8
9
10
11
12
13
|
Program Example3;
{ Program to demonstrate the EpochToLocal function. }
Uses BaseUnix,Unix,UnixUtil;
Var Year,month,day,hour,minute,seconds : Word;
begin
EpochToLocal (FPTime,Year,month,day,hour,minute,seconds);
Writeln ('Current date : ',Day:2,'/',Month:2,'/',Year:4);
Writeln ('Current time : ',Hour:2,':',minute:2,':',seconds:2);
end.
|