Небольшая и несложная функция, которая поможет определить наименование дня недели, на которое выпадает 8 марта в заданном году.

Function mart8 (Y as Integer)

Dim FD as Date

FD = CDate ("08." & "03." & Y)

mart8 = WeekdayName(Weekday(FD))

End Function

Можно не заглядывать в календарь и сразу понять в какой день недели будет корпоратив в честь 8 марта. 🤩

Около минуты

10 июня 2022