Badanie czasu
procedure GetTime(var Hour, Minute, Second, Sec100 : Word);
procedura GetTime zwraca aktualny czas komputerowy. Zapisuje go do Twoich zmiennych, które wstawisz do procedury.
Hour przyjmuje warto¶ci 0..23,
Minute 0..59
Second 0..59
Sec100 0..99
Mo¿na uzyskaæ czas choæby w taki sposób:
uses Dos;
var h, m, s, ss : Word;
begin
GetTime(h, m, s, ss);
WriteLn('Jest godzina: ', h, ':', m);
end.
Mo¿na korzystaæ ze zmiennych o dowolnej nazwie, ale zadeklarowanych jako Word.