Правила форума
GetDate.PASЯзык:
Русский
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.
::
::
::
