Процедура GetTime

Модуль WinDOS

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

Объявление:

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

Режим: 

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

Пример:

 Uses WinDos, WinCrt;
 
 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.

См. также: