Unit 'Dos'	Package
[Overview][Constants][Types][Procedures and functions][Variables][Index]	[#rtl]

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.

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,inec,HSec : word;
begin
  GetTime(Hour,inec,HSec);
  WriteLn('Current time');
  WriteLn(L0(Hour),':',L0(in':',L0(Sec));
end.

GetDate		Get the current date.
SetTime		Set system time.

GetTime

Declaration

Description

Errors

See also

Example