Это не очень просто, но при условии, что вы можете принять сокращенное форматирование месяца (например, «апрель» вместо «апрель»), тогда это будет работать. Я добавил дополнительную логику для работы с неделями, которые пересекают 2 месяца (например, «Неделя № 18: 28 апреля-5 мая»)
case when Month(DateAdd("day",-dayofweek(datetimenow()),datetimenow()))=Month(DateAdd("day",7 - dayofweek(datetimenow()),datetimenow())) then
Concatenate("Week #",Week(datetimenow()),": ",Month(datetimenow())," ",DayOfMonth(DateAdd("day",-dayofweek(datetimenow()),datetimenow())),"-",DayOfMonth(DateAdd("day",7 - dayofweek(datetimenow()),datetimenow())))
else
Concatenate("Week #",Week(datetimenow()),": ",Month(DateAdd("day",-dayofweek(datetimenow()),datetimenow()))," ",DayOfMonth(DateAdd("day",-dayofweek(datetimenow()),datetimenow())),"-",Month(DateAdd("day",7 - dayofweek(datetimenow()),datetimenow()))," ",DayOfMonth(DateAdd("day",7 - dayofweek(datetimenow()),datetimenow())))
end