Функция возвращает порядковый номер дня недели (1 ... 7) для указанной даты в формате: 1 - воскресенье, 2 - понедельник, ..., 7 - суббота.
Синтаксис | ||
DayOfWeek(Date: TDateTime): Integer | ||
Входные параметры | ||
Имя параметра | Тип параметра | Описание |
Date | 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. |