GetDate
Verze z 2. 10. 2012, 15:20, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Založena nová stránka: Vrací aktuální datum, nastavené v operačním systému. ;Deklarace procedure GetDate(var Year, Month, Day, DayOfWeek: Word); ;Režim :Windows, Reálný, Chráněn…)
Vrací aktuální datum, nastavené v operačním systému.
- Deklarace
procedure GetDate(var Year, Month, Day, DayOfWeek: Word);
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Rozsahy vracených hodnot jsou Year 1980..2099, Month 1..12, Day 1..31 a DayOfWeek 0..6 (kde 0 odpovídá neděli).
- Viz také
- GetTime
Vzorový příklad
{ GetDate.PAS }
{ Vzorový příklad pro proceduru GetDate. }
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses Dos;
const
days : array [0..6] of String[9] =
('Neděle','Pondělí','Úterý',
'Středa','Čtvrtek','Pátek',
'Sobota');
var
y, m, d, dow : Word;
begin
GetDate(y,m,d,dow);
Writeln('Dnes je ', days[dt],', ', m:0, '/', d:0, '/', y:0);
end.