GetTime
Return the current time
Declaration
Source position: dosh.inc line 91
procedure GetTime(var hour: Word; var minute: Word; var second: Word;
var sec100: Word);
Description
GetTime returns the system's time. Hour is a on a 24-hour time scale. sec100 is in hundredth of a second.
Remark
Certain operating systems (such as Amiga), always set the sec100 field to zero. !!!
Errors
None.
See also
| Name | Description |
|---|---|
| GetDate | Get the current date |
| SetTime | Set system time |
Example
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.