Содержание:


DayOfWeek

Функция возвращает порядковый номер дня недели (1 ... 7) для указанной даты в формате: 1 - воскресенье, 2 - понедельник, ..., 7 - суббота.

Синтаксис

DayOfWeek(ADate: TDateTime): Integer

Входные параметры
Имя параметра
Тип параметра
Описание
ADate TDateTime  Дата и время
Выходные параметры
Тип параметра  
Описание 
Integer  Порядковый номер
 дня недели

Пример вызова:


  Var
     S: String;

  Begin
     case DayOfWeek(Date) of
       1: S:='Выходной!';
       2: S:='Тяжелый день';
       3: S:='Серые рабочие будни';
       4: S:='Серые рабочие будни';
       5: S:='Серые рабочие будни';
       6: S:='Короткий день';
       7: S:='Выходной!';
     end;
     WriteValue('Virtual channel 99', S);     
  end.