1 578
editací
Změny
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]]
:[[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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Datové a časové procedury]]
;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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Datové a časové procedury]]