16.45.8. function DayOfWeek function DayOfWeek(aDate: TDateTime): Integer; Возвращает текущий день недели (1-воскресенье, 2-понедельник ... 7-суббота). Пример: begin AddToLog(IntToStr(DayOfWeek(Now))); end.