DayOfWeek(X : DateTime) : Integer
Номер дня недели из X

Функция DayOfWeek возвращает номер дня недели.

Возвращаемое значение число от 1 до 7. Число 1 соответствует воскресенью, 2 понедельнику.

Procedure OnCreate;
Var
  n : Integer;
Begin
  n := DayOfWeek(Date);
  Warning('Сегодня ' + ['','воскресенье','понедельник','вторник','среда','четверг','пятница','суббота'][n]);
End;

© RTIT