Правила форума
GetDate (процедура) (модуль WinDos)Язык:
Русский
English
GetDate (процедура) (модуль WinDos)
Возвращает текущую дату, установленную в операционной системе.
Объявление
Procedure GetDate(Var Year, Month, Day, DayOfWeek : Word);
Режим
Windows, Real, Protected
Замечания
Диапазоны возвращаемых значений:
Year 1980..2099
Month 1..12
Day 1..31
DayOfWeek 0..6 (0 - воскресенье, 1 - понедельник...)
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры GetDate }
uses Dos;
const Days : array[0 .. 6] of String[11] =
('Воскресенье', 'Понедельник', 'Вторник',
'Среда', 'Четверг', 'Пятница', 'Суббота');
var
Y, M, D, Dow : Word;
begin
GetDate(Y, M, D, Dow);
WriteLn('Сегодня : ', Days[Dow], ', ',
D : 0, '.', M : 0, '.', Y : 0);
end.
const Days : array[0 .. 6] of String[11] =
('Воскресенье', 'Понедельник', 'Вторник',
'Среда', 'Четверг', 'Пятница', 'Суббота');
var
Y, M, D, Dow : Word;
begin
GetDate(Y, M, D, Dow);
WriteLn('Сегодня : ', Days[Dow], ', ',
D : 0, '.', M : 0, '.', Y : 0);
end.
::
::
::
