В стандартной конфигурации ЗиК от 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); // КонецЕсли; //КонецЕсли; // >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> //КонецФункции // глПреобразоватьСтрокуМесяца
Я предлагаю свой метод поиска переменной «ВведенноеЧисло». Одной строкой.
ВведенноеЧисло = (Найти(\"янвфевмарапрмайиюниюлавгсеноктноядек\",Нрег(Лев(СтрокаМесяц,3)))+2)/3;
Я не буду описывать технологии внедрения вычленения самого наименования и т.д.
Извините, со школы не люблю писать рефераты и сочинения.
Для удобства проверки выложена обработка тест.
//infostart.ru/projects/1292/
Извините, со школы не люблю писать рефераты и сочинения.
Для удобства проверки выложена обработка тест.
//infostart.ru/projects/1292/
