Procedure GetTime (Var Hour,Minute, Second : Word) ;
Returns the current time of the day.
None
GetEpochTime, GetDate, EpochToLocal
Program Example5;
{ Program to demonstrate the GetTime function. }
Uses linux;
Var Hour, Minute, Second : Word;
begin
GetTime (Hour, Minute, Second);
Writeln ('Time : ',Hour:2,':',Minute:2,':',Second:2);
end.