getdate.pas
Пример программы для процедуры GetDate.
Код примера
{GetDate.PAS}
{ Пример программы для процедуры GetDate }
Uses WinDos;
Const Days : Array [0..6] Of String[11] =
('Воскресенье', 'Понедельник', 'Вторник',
'Среда', 'Четверг', 'Пятница', 'Суббота');
Var Y, M, D, Dow : Word;
Begin
GetDate(Y, M, D, Dow);
WriteLn('Сегодня : ', Days[Dow],', ', M:0, '-', D:0, '-', Y:0);
End.
Скачать getdate.pas