Excel VBA, если воскресенье или Staurday
MsgBox Weekday(my_date, vbMonday) > 5
' Or -------------------------------------------------------
Public Function IsWeekend(InputDate As Date) As Boolean
Select Case Weekday(InputDate)
Case vbSaturday, vbSunday
IsWeekend = True
Case Else
IsWeekend = False
End Select
End Function
VasteMonde