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.