ник: Силыч
напримертак
Function CMonth(mes As Integer, Optional lang As String = "ua")
mes = mes + 1
Select Case lang
Case "ru":
CMonth = Choose(mes, "", "Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")
Case "ua":
CMonth = Choose(mes, "", "Січень", "Лютий", "Березень", "Квітень", "Травень", "Червень", "Липень", "Серпень", "Вересень", "Жовтень", "Листопад", "Грудень")
End Select
End Function