Функция возвращает номер дня недели от 0 - Воскресенье до 6 - Суббота*******************************************************************************) function DayOfWeek(Date:TDateTime):Integer; begin
Функция возвращает название дня недели*******************************************************************************) function NameDayOfWeek(Date:TDateTime):String; const
DayNames:array[0..6] of String[11]=('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота');begin
