Процедура GetTime

Модуль DOS

Возвращает текущее время, установленное в операционной системе.

Объявление:

Procedure GetTime(Var Hour, Minute, Second, Sec100 : Word);

Режим:

Windows, Real, Protected

Замечание:

Диапазоны возвращаемых значений:

Hour 0 .. 23 (часы)
Minute 0 .. 59 (минуты)
Second 0 .. 59 (секунды)
Sec100 0 .. 99 (сотые доли секунды)

Пример:

{ Пример программы для процедуры GetTime }

Uses Dos, Crt;

Var H, M, S, Hund : Word;

Function LeadingZero(W : Word) : String;
Var S : String;
Begin
 Str(W:0, S);
 If Length(S) = 1 Then S:='0'+S;
 LeadingZero:=S;
End;

Begin
 GetTime(H, M, S, Hund);
 WriteLn('Сейчас ', LeadingZero(H), ':', LeadingZero(M), ':',
                    LeadingZero(S), '.', LeadingZero(Hund));
End.