Zobrazení zdroje stránky GetTime

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]]