ник: Lukas
А как насчет такой конструкции:
Public Enum DayWeek
Понедельник = 1
Вторник= 2
Среда= 3
Четверг= 4
Пятница= 5
Суббота= 6
Воскресенье= 7
End Enum
Public Function funTest()
If Weekday(Date, vbMonday) = DayWeek.Пятница Then
MsgBox "Сегодня пятница"
Else
MsgBox "Сегодня нифига не пятница"
End If
End Function
|