// Автор: Сергей (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’
КонецПопытки
КонецФункции // СтрокаВДату
