Procedure EpochToLocal (Epoch : Longint; var Year,Month,Day,Hour,Minute,Second : Word) ;
Converts the epoch time (=Number of seconds since 00:00:00 , January 1, 1970, corrected for your time zone ) to local date and time.
None
GetEpochTime, LocalToEpoch, GetTime,GetDate
Program Example3;
{ Program to demonstrate the EpochToLocal function. }
Uses linux;
Var Year,month,day,hour,minute,seconds : Word;
begin
EpochToLocal (GetEpochTime,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.