Процедура GetDate

Модуль WinDos

Возвращает текущую дату, установленную в операционной системе.

Объявление:

 Procedure GetDate(Var Year, Month, Day, DayOfWeek : Word);

Режим:

Windows,  Protected,  Real

Замечание:

Диапазоны возвращаемых значений: Year 1980..2099 Month 1..12 Day 1..31 DayOfWeek 0..6 (0 - воскресенье, 1 - понедельник...)

Пример:

{ Пример программы для процедуры 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],', ', M:0, '-', D:0, '-', Y:0);
End.