summaryrefslogtreecommitdiff
path: root/fpcdocs/unutilex/ex3.pp
blob: 412de02a709e8a3292f21123b09bbe6d461f26be (plain)
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.