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.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //