//Выберите месяц формирования

СписокМесяцев = Новый СписокЗначений;

ТекДата = НачалоМесяца(РабочаяДата);

Для Мес = -15 по 15 Цикл

	ТекМес = ДобавитьМесяц(ТекДата, Мес);

	СписокМесяцев.Добавить(ТекМес, Формат(ТекМес, "ДФ='ММММ гггг'"));

КонецЦикла;	

ВыбранЗначение = СписокМесяцев.ВыбратьЭлемент("Выберите месяц:", СписокМесяцев.НайтиПоЗначению(ТекДата));

Если ВыбранЗначение = Неопределено Тогда 

	Сообщить("Месяц не выбран ");

Иначе 

	Сообщить("Первый день выбранного месяца: "+ ВыбранЗначение.Значение);	

	Сообщить("Представление выбранного месяца: "+ ВыбранЗначение.Представление);

КонецЕсли;   

 // пример от glory01

А = Формат('20020820153309', "ДФ=ММММ")

// А = "Август"

А = Формат(ТекущаяДата(), "ДФ=ММММ")

// А = "Март"

   

  Функция МесяцПрописью(НомерМесяца) Экспорт

    НомерМесяца=Число(НомерМесяца);

	Если НомерМесяца = 1 Тогда

		Возврат "Январь";

	ИначеЕсли НомерМесяца = 2 Тогда

		Возврат "Февраль";

	ИначеЕсли НомерМесяца = 3 Тогда

		Возврат "Март";

	ИначеЕсли НомерМесяца = 4 Тогда

		Возврат "Апрель";

	ИначеЕсли НомерМесяца = 5 Тогда

		Возврат "Май";

	ИначеЕсли НомерМесяца = 6 Тогда

		Возврат "Июнь";

	ИначеЕсли НомерМесяца = 7 Тогда

		Возврат "Июль";

	ИначеЕсли НомерМесяца = 8 Тогда

		Возврат "Август";

	ИначеЕсли НомерМесяца = 9 Тогда

		Возврат "Сентябрь";

	ИначеЕсли НомерМесяца = 10 Тогда

		Возврат "Октябрь";

	ИначеЕсли НомерМесяца = 11 Тогда

		Возврат "Ноябрь";

	ИначеЕсли НомерМесяца = 12 Тогда

		Возврат "Декабрь";

	Иначе

		Возврат "";

	КонецЕсли;

конецфункции