Модуль Dos

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


Объявление:
Procedure GetTime(Var Hour, Minute, Second, Sec100 : Word);
Режим:
Windows, Real, Protected
Замечания

Диапазоны возвращаемых значений:
Hour 0 .. 23 (часы)
Minute 0 .. 59 (минуты)
Second 0 .. 59 (секунды)
Sec100 0 .. 99 (сотые доли секунды)
Пример: view source

print
?01 { Пример программы для процедуры GetTime }
02
03 Uses Dos, Crt;
04
05 Var H, M, S, Hund : Word;
06
07 Function LeadingZero(W : Word) : String;
08 Var S : String;
09 Begin
10 Str(W:0, S);
11 If Length(S) = 1 Then S:='0'+S;
12 LeadingZero:=S;
13 End;
14
15 Begin
16 GetTime(H, M, S, Hund);
17 WriteLn('Сейчас ', LeadingZero(H), ':', LeadingZero(M), ':',
18 LeadingZero(S), '.', LeadingZero(Hund));
19 End.