Описание
Функция возвращает порядковый номер дня недели (1 ... 7) для даты, определенной параметром Date (1 - воскресенье, 2 - понедельник, ..., 7 - суббота).
Пример var
S: string; begin case DayOfWeek(Date) of
1: S:='выходной!';
2: S:='тяжелый день';
3: S:='серые рабочие будни';
4: S:='серые рабочие будни';
5: S:='серые рабочие будни';
6: S:='короткий день';
7: S:='выходной!'; end;
MessageDlg( 'Сегодня '+ S, mtInformation, [mbOk], 0); end;
