Определение даты из произвольной строки

Здесь описана функция получения даты из произвольной строки, реализована с целью выявления даты из ячейки счета-фактуры например: 

• Счет-фактура №  087-103-5-0014375  от 25.05.20  (1)                                                            
• Счет-фактура №  087-103-5-0014375  от 25 января 2020 года        

Реализован принцип поиска в строке чего-то похожего на дату. Из всех найденных возможных дат возвращается самая адекватная.

Принцип взят как составления наборов частей дат разделенных пробелами либо разделителями типа ",;/.-\ " начиная с конца, год + месяц + день

Алгоритм не распознает "что угодно" и если сунуть ему хаос из наборов букв и цифр то он ничего не распознает или распознает не верно

Например: 0102523 18мая 2020 3689832 12/12/2020 12\05\2021\  распознается как 12 декабря 2020 года

0102523 18 мая 2020 3689832 12/12/2020 12\05\2021\  распознается как 18 мая 2020 года

Т.к. во входящих документах обычно все же есть какая то логика алгоритм обрабатывает 100% входящих дат, за время работы ошибок не выявлено.

Здесь приведен код распознавания:

Функция Вернутьдату(Строка)
	Имена = новый Структура;
	Имена.Вставить("ЯНВАРЬ", 1);
	Имена.Вставить("ФЕВРАЛЬ",2);
	Имена.Вставить("МАРТ", 3);
	Имена.Вставить("АПРЕЛЬ", 4);
	Имена.Вставить("МАЙ", 5);
    Имена.Вставить("МАЯ", 5);
	Имена.Вставить("ИЮНЬ", 6);
	Имена.Вставить("ИЮЛЬ", 7);
	Имена.Вставить("АВГУСТ", 8);
	Имена.Вставить("СЕНТЯБРЬ", 9);
	Имена.Вставить("ОКТЯБРЬ", 10);
	Имена.Вставить("НОЯБРЬ", 11);
	Имена.Вставить("ДЕКАБРЬ", 12);
	
	Имена.Вставить("ЯНВАРЯ", 1);
	Имена.Вставить("ФЕВРАЛЯ",2);
	Имена.Вставить("МАРТА", 3);
	Имена.Вставить("АПРЕЛЯ", 4);
	Имена.Вставить("ИЮНЯ", 6);
	Имена.Вставить("ИЮЛЯ", 7);
	Имена.Вставить("АВГУСТА", 8);
	Имена.Вставить("СЕНТЯБРЯ", 9);
	Имена.Вставить("ОКТЯБРЯ", 10);
	Имена.Вставить("НОЯБРЯ", 11);
	Имена.Вставить("ДЕКАБРЯ", 12);


    МасСтрок = _РазбитьСтроку(Строка,",;/.-\ ");
	
	МасЦифр = Новый Массив;
	
	МасВозврата = Новый ТаблицаЗначений;
	КД = новый КвалификаторыДаты(Частидаты.Дата);
	МКв = новый Массив();
	Мкв.Добавить(Тип("Дата"));
	МасВозврата.Колонки.Добавить("датаОп", Новый ОписаниеТипов(МКв,,КД));
	
	Для каждого стр из МасСтрок Цикл
		НЗ = "";
		СтрПроверки = УбратьСпецСимволыРус(ВРЕГ(СокрЛП(стр)));
		ПС = Лев(СтрПроверки,1);
		Если НЕ ТолькоЦифры(СтрПроверки) и НЕ ТолькоЦифры(ПС) Тогда
			Если Имена.Свойство(СтрПроверки, НЗ) Тогда
				МасСтрок[МасСтрок.найти(СтрПроверки)] = НЗ;
			КонецЕсли;
		Иначе
			НЗ = стр;
		КонецЕсли;
		НовЦифра = "";
		Для аа=1 по СтрДлина(НЗ) Цикл
			  Сим = Сред(НЗ,аа,1);
			  Если ТолькоЦифры(Сим) Тогда
				  НовЦифра = НовЦифра + Сим;
			  КонецЕсли;
			  
		КонецЦикла;
		Если ЗначениеЗаполнено(НовЦифра)Тогда
			МасЦифр.Вставить(0,НовЦифра);
		КонецЕсли;
		
		
	КонецЦикла;
	
	Если МасЦифр.Количество()<3 Тогда
		Возврат Дата('00010101');
	КонецЕсли;
	
	Активно = истина;
	Пока Активно Цикл
		Если МасЦифр.Количество()<3 Тогда
			прервать;
		КонецЕсли;
		
		Если СтрДлина(МасЦифр[0])<4 Тогда
			Год = "000" + МасЦифр[0];
			Год = Прав(Год,3);
			Год = "2" + Год;
			
		ИначеЕсли СтрДлина(МасЦифр[0])>4 Тогда
			МасЦифр.Удалить(0);
            Продолжить;
		Иначе
			Год = МасЦифр[0];
		КонецЕсли;
		
		Если СтрДлина(МасЦифр[1])<2 Тогда
			Месяц = "0" + МасЦифр[1];
		ИначеЕсли СтрДлина(МасЦифр[1])>2 или Число(МасЦифр[1])>12 Тогда
			МасЦифр.Удалить(0);
			Продолжить;
		Иначе
			Месяц = МасЦифр[1];
		КонецЕсли;
		
		Если СтрДлина(МасЦифр[2])<2 Тогда
			День = "0" + МасЦифр[2];
		ИначеЕсли СтрДлина(МасЦифр[2])>2 или Число(МасЦифр[2])>31 Тогда
			МасЦифр.Удалить(0);
			Продолжить;
		Иначе
			День = МасЦифр[2];
		КонецЕсли;
	
		
		
		СтрокаДля = Год  + Месяц + День;
		
		Попытка
			датаВозвр = дата(СтрокаДля);
			Доб = МасВозврата.Добавить();
			доб.ДатаОп = датаВозвр;
			МасВозврата.Добавить(датаВозвр);
			МасЦифр.Удалить(0);
		Исключение
			МасЦифр.Удалить(0);
		КонецПопытки;
		
	КонецЦикла;
	
	
	Если МасВозврата.Количество() > 1 Тогда
		
		Запрос = Новый Запрос;
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	даты.ДатаОп
		|ПОМЕСТИТЬ ДОпр
		|ИЗ
		|	&даты КАК даты
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	МИНИМУМ(ВЫБОР
		|			КОГДА РАЗНОСТЬДАТ(ДОпр.ДатаОп, &ТД, ДЕНЬ) < 0
		|				ТОГДА -РАЗНОСТЬДАТ(ДОпр.ДатаОп, &ТД, ДЕНЬ)
		|			ИНАЧЕ РАЗНОСТЬДАТ(ДОпр.ДатаОп, &ТД, ДЕНЬ)
		|		КОНЕЦ) КАК Поле1,
		|	ДОпр.ДатаОп
		|ПОМЕСТИТЬ Вт2
		|ИЗ
		|	ДОпр КАК ДОпр
		|
		|СГРУППИРОВАТЬ ПО
		|	ДОпр.ДатаОп
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	МИНИМУМ(Вт2.Поле1) КАК Поле1
		|ПОМЕСТИТЬ ВТМИН
		|ИЗ
		|	Вт2 КАК Вт2
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	Вт2.ДатаОп,
		|	ВТМИН.Поле1,
		|	Вт2.Поле1 КАК Поле11
		|ИЗ
		|	Вт2 КАК Вт2
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТМИН КАК ВТМИН
		|		ПО Вт2.Поле1 = ВТМИН.Поле1";
		
		Запрос.УстановитьПараметр("Даты",МасВозврата);
		Запрос.УстановитьПараметр("ТД", Текущаядата());
		
		Рез = Запрос.Выполнить().Выгрузить();
		
		Возврат Рез[0].ДатаОп;
				
			
	ИначеЕсли МасВозврата.Количество() = 1 Тогда
		Возврат МасВозврата[0].датаОп;
	Иначе
		Возврат Дата('00010101');
	КонецЕсли;
КонецФункции

Функции РазбитьСтроку, ТолькоЦифры и УбратьСпецСимволы можно написать самому или взять в приложенной обработке

Обработка выполнена на обычной форме под платформой 1С:Предприятие 8.3 (8.3.16.1296)

Процедуры и функции используются в модуле управляемой формы &НаСервере