Функция ПолучитьМесяцВРодительскомПадеже(Дата) ДеньИМесяц = Формат(Дата,"Л=uk_UA;ДФ = ""дд ММММ"""); НаходимПозициюПробела = Найти(ДеньИМесяц," "); МесяцПрописью = Сред(ДеньИМесяц,НаходимПозициюПробела); Возврат МесяцПрописью; КонецФункции
// пример от glory01 А = Формат('20020820153309', "ДФ=ММММ") // А = "Август" А = Формат(ТекущаяДата(), "ДФ=ММММ") // А = "Март"
Функция МесяцПрописью(НомерМесяца) Экспорт НомерМесяца=Число(НомерМесяца); Если НомерМесяца = 1 Тогда Возврат "Январь"; ИначеЕсли НомерМесяца = 2 Тогда Возврат "Февраль"; ИначеЕсли НомерМесяца = 3 Тогда Возврат "Март"; ИначеЕсли НомерМесяца = 4 Тогда Возврат "Апрель"; ИначеЕсли НомерМесяца = 5 Тогда Возврат "Май"; ИначеЕсли НомерМесяца = 6 Тогда Возврат "Июнь"; ИначеЕсли НомерМесяца = 7 Тогда Возврат "Июль"; ИначеЕсли НомерМесяца = 8 Тогда Возврат "Август"; ИначеЕсли НомерМесяца = 9 Тогда Возврат "Сентябрь"; ИначеЕсли НомерМесяца = 10 Тогда Возврат "Октябрь"; ИначеЕсли НомерМесяца = 11 Тогда Возврат "Ноябрь"; ИначеЕсли НомерМесяца = 12 Тогда Возврат "Декабрь"; Иначе Возврат ""; КонецЕсли; конецфункции