Процедура GetDate

Модуль WinDOS

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

Объявление:

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

Режим: 

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

Пример:

  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.
 
 

См. также: