Каталог решений - Поиск номера месяца в году из его наименования средствами 1С

В стандартной конфигурации ЗиК от 1С в глобальном модуле встретил вот это:
Привожу фрагмент.

 //Функция глПреобразоватьСтрокуМесяца(Месяц, ПредпочтительнаяДата) Экспорт
// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
//Если		ПерваяБуква="Я"	Тогда				ВведенноеЧисло = 1;
//	ИначеЕсли	ПерваяБуква="Ф"	Тогда			ВведенноеЧисло = 2;
//	ИначеЕсли	ПерваяБуква="С"	Тогда			ВведенноеЧисло = 9;
//	ИначеЕсли	ПерваяБуква="О"	Тогда			ВведенноеЧисло = 10;
//	ИначеЕсли	ПерваяБуква="Н"	Тогда			ВведенноеЧисло = 11;
//	ИначеЕсли	ПерваяБуква="Д"	Тогда			ВведенноеЧисло = 12;
//	ИначеЕсли	ПерваяБуква="М"	Тогда	
// если "М" - посмотрим Март или Май
//		Если		Лев(СтрокаМесяц,3)="МАР" Тогда	ВведенноеЧисло = 3; 
// задан март	явным образом
//		ИначеЕсли	Лев(СтрокаМесяц,3)="МАЙ" Тогда	ВведенноеЧисло = 5; 
// задан май	явным образом
//	Иначе	ВведенноеЧисло = ?((ПредпочтитМесяц>4)или(ПредпочтитМесяц<3),5,3);
//		КонецЕсли;
//	ИначеЕсли	ПерваяБуква="А"	Тогда
// если "А" - посмотрим Апрель или Август
//		Если		Лев(СтрокаМесяц,2)="АП"	 Тогда	ВведенноеЧисло = 4; 
// задан апрель	явным образом
//		ИначеЕсли	Лев(СтрокаМесяц,2)="АВ"	 Тогда	ВведенноеЧисло = 8; 
// задан август	явным образом
//		Иначе	ВведенноеЧисло= ?((ПредпочтитМесяц>7)или(ПредпочтитМесяц<4),8,4);
//		КонецЕсли;
//	ИначеЕсли	ПерваяБуква="И"	Тогда	// если "И" - посмотрим Июнь или Июль
//		Если		Лев(СтрокаМесяц,3)="ИЮН" Тогда	ВведенноеЧисло = 6; 
// задан июнь	явным образом
//		ИначеЕсли	Лев(СтрокаМесяц,3)="ИЮЛ" Тогда	ВведенноеЧисло = 7; 
// задан июль	явным образом
//		Иначе		ВведенноеЧисло = ?(ПредпочтитМесяц=6,6,7);
//		КонецЕсли;
//КонецЕсли;
//  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
//КонецФункции	// глПреобразоватьСтрокуМесяца
 

Я предлагаю свой метод поиска переменной «ВведенноеЧисло». Одной строкой.