Алгоритмы.СтрокаВДату

// Автор: Сергей (ildarovich, http://infostart.ru/profile/28527/)
Функция СтрокаВДату(Знач ФорматДаты, Знач СтрокаСДатой, Ошибка = Ложь) Экспорт 
	
	Попытка 
        тест = Формат('00010101', "ДФ=" + ФорматДаты) // - проверка корректности параметра ФорматДата
    Исключение 
        Ошибка = Истина; 
        Возврат '00010101' 
	КонецПопытки; 
	
    составДаты = Новый Соответствие;                                                                                                        // - части даты
	
	Для Инд = 1 По СтрДлина(ФорматДаты) + 7 Цикл 
        составДаты[Сред(ФорматДаты + "dMyHhms", Инд, 1)] = 0                                                                                // - инициализация частей даты 
    КонецЦикла; 
	
	Для Инд = 1 По 12 Цикл 
        СтрокаСДатой = СтрЗаменить(СтрокаСДатой, Формат(Дата(1, Инд, 1), "ДФ=MMММ"), Формат(Инд, "ЧЦ=4; ЧВН="));                            // - замена названий месяцев числами 
        СтрокаСДатой = СтрЗаменить(СтрокаСДатой, Формат(Дата(1, Инд, 1), "ДФ=MMМ" ), Формат(Инд, "ЧЦ=3; ЧВН=")) 
    КонецЦикла; 
	
	Для Инд = 1 По СтрДлина(ФорматДаты) Цикл 
        составДаты[Сред(ФорматДаты, Инд, 1)] = 10 * составДаты[Сред(ФорматДаты, Инд, 1)] + Найти("123456789", Сред(СтрокаСДатой, Инд, 1));  // - накопление частей даты 
        Ошибка = Ошибка ИЛИ Найти("dMyHhms", Сред(ФорматДаты, Инд, 1)) И НЕ Найти("0123456789", Сред(СтрокаСДатой, Инд, 1))                 // - необязательная проверка на цифры 
	КонецЦикла; 
	
    составДаты["y"] = составДаты["y"] + ?(составДаты["y"] < 50, 2000, ?(составДаты["y"] < 100, 1900, 0));                                   // - дополнение двух цифр года до четырех 
    Попытка 
        Возврат Дата(составДаты["y"], составДаты["M"], составДаты["d"], составДаты["H"] + составДаты["h"], составДаты["m"], составДаты["s"]) 
    Исключение 
        Ошибка = Истина; 
        Возврат '00010101' 
	КонецПопытки 
	
КонецФункции // СтрокаВДату