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