GetDate

Z Delphi & Pascal (česká wiki)
Verze z 2. 10. 2012, 15:42, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Uses DOS)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledává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
SetDate
SetTime


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.