Небольшая и несложная функция, которая поможет определить наименование дня недели, на которое выпадает 8 марта в заданном году. Function mart8 (Y as Integer) Dim FD as Date FD = CDate ("08." & "03." & Y) mart8 = WeekdayName(Weekday(FD)) End Function Можно не заглядывать в календарь и сразу понять в какой день недели будет корпоратив в честь 8 марта. 🤩
4 года назад