А можно еще круче

:
Функция Weekday
Weekday(Date,[FirstDayOfWeek])
Функция используется для получения номера дня(между 1 и 7) из указанной даты
Возвращаемое значение
Возвращает значение типа Variant(Integer), содержащее целое число(между 1 и 7), представляющее день недели
Параметры
Функция содержит именованные аргументы
Date - Обязательный. Значение типа Variant, числовое выражение, строковое выражение или любая комбинация, позволяющая отобразить дату.Допустимый диапазоно дат-01.01.0000 до 31.12.9999.Если аргумент содержит зарезервированное слово Null, то функцией возвращает Null
Firstdayofweek - Необязательный. Константа, указывающая первый день недели. Если этот аргумент опущен, считается, что неделя начинается с воскресенья
Ниже перечислены допустимые значения аргумента FirstDayOfWeek:
vbUseSystem = 0 - Используется значение NLS API
vbSunday = 1 - Воскресенье (по умолчанию)
vbMonday = 2 - Понедельник
vbTuesday = 3 - Вторник
vbWednesday = 4 - Среда
vbThursday = 5 - Четверг
vbFriday = 6 - Пятница
vbSaturday = 7 - Суббота
Возвращаемые значения
См. константы выше
Понимаешь? (с)Б.Ельцин.