1 578
editací
Změny
bez shrnutí editace
Vrací aktuální čas, nastavený v operačním systému.
;Deklarace
procedure GetTime(var Hour, Minute, Second, Sec100: Word);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Rozsahy vracených hodnot jsou: Hour 0..23, Minute 0..59, Second 0..59 a Sec100 (setiny sekundy) 0..99.
;Viz také
:[[GetDate]]
:[[SetDate]]
:[[SetTime]]
:[[UnPackTime]]
Vzorový příklad
{ GetTime.PAS }
{ Vzorový příklad pro proceduru GetTime. }
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses Dos;
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('Je právě ',LeadingZero(h),':',
LeadingZero(m),':',LeadingZero(s),
'.',LeadingZero(hund));
end.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Datové a časové procedury]]
;Deklarace
procedure GetTime(var Hour, Minute, Second, Sec100: Word);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Rozsahy vracených hodnot jsou: Hour 0..23, Minute 0..59, Second 0..59 a Sec100 (setiny sekundy) 0..99.
;Viz také
:[[GetDate]]
:[[SetDate]]
:[[SetTime]]
:[[UnPackTime]]
Vzorový příklad
{ GetTime.PAS }
{ Vzorový příklad pro proceduru GetTime. }
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses Dos;
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('Je právě ',LeadingZero(h),':',
LeadingZero(m),':',LeadingZero(s),
'.',LeadingZero(hund));
end.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Datové a časové procedury]]