Правила форума
GetTime (процедура) (модуль WinDos)Язык:
Русский
English
GetTime (процедура) (модуль WinDos)
Возвращает текущее время, установленное в операционной системе.
Объявление
Procedure GetTime(Var Hour, Minute, Second, Sec100 : Word);
Режим
Windows, Real, Protected
Замечания
Диапазоны возвращаемых значений:
Hour 0 .. 23 (часы)
Minute 0 .. 59 (минуты)
Second 0 .. 59 (секунды)
Sec100 0 .. 99 (сотые доли секунды)
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры 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.
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.
::
::
::
