Procedure GetTime (var hour, minute, second, sec100: word) ;
GetTime returns the system's time. Hour is a on a 24-hour time scale. sec100 is in hundredth of a second.
None.
Program Example3;
uses Dos;
{ Program to demonstrate the GetTime function. }
Function L0(w:word):string;
var
s : string;
begin
Str(w,s);
if w<10 then
L0:='0'+s
else
L0:=s;
end;
var
Hour,Min,Sec,HSec : word;
begin
GetTime(Hour,Min,Sec,HSec);
WriteLn('Current time');
WriteLn(L0(Hour),':',L0(Min),':',L0(Sec));
end.