Badanie daty
procedure GetDate(var Year, Month, Day, DayOfWeek : Word);
procedura GetDate zwraca aktualn± datê. Zapisuje j± tak¿e do Twoich zmiennych, które wstawisz do procedury.
Year przyjmuje warto¶ci 1980..2099,
Month 1..12
Day 1..31
DayOfWeek 0..6
Je¶li chodzi o dni tygodnia, gdy program zwróci 0 bêdzie to niedziela
Mo¿na uzyskaæ datê choæby w taki sposób:
uses Dos;
var y, m, d, dw : Word;
begin
GetDate(y, m, d, dw);
WriteLn('Dzisiaj jest: ', y, '-', m, '-', d);
end.