DayOfWeek

Функция возвращает порядковый номер дня недели (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.