home *** CD-ROM | disk | FTP | other *** search
- 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.
-