Функция преобразования даты

// Получение значения типа "Дата" из строки по формату шаблона
//
// Параметры
//  <Строка>  – <Строка> – строка содержащая значения литералов даты
//                (Например "03.07.1979 09:30:59")
//  <Шаблон>  – <Строка> – Строка содержащая шаблон даты
//                (Например "ДД.ММ.ГГГГ ЧЧ:ММ:СС")
//  <Режим>   - <Строка> –режим возвращаемого значения:
//
// Возвращаемое значение:
//   <Дата>   – в случае Режим = "Дата"
//   <Строка> - в случае Режим = "Строка" (формат строки: ГГГГММДДччммсс)
Функция ИзСтрокиВДату(Строка, Шаблон = "ДД.ММ.ГГГГ", Режим = "Дата") Экспорт

    Если НЕ ЗначениеЗаполнено(Строка) ТОгда
        Возврат Дата("00010101");
    КонецЕсли;
    Попытка
    //Получим строковые значения литералов
    Год = Сред(Строка, Найти(Шаблон, "ГГГГ"),4);
    Если Число(СокрЛП(Год)) <30 Тогда
        Год = "20"+Строка(Формат(Число(СокрЛП(Год)), "ЧЦ=2; ЧН=00; ЧВН=; ЧГ="));
    ИначеЕсли Число(СокрЛП(Год)) <100 Тогда
        Год = "19"+Строка(Формат(Число(СокрЛП(Год)), "ЧЦ=2; ЧН=00; ЧВН=; ЧГ="));
    КонецЕсли;

    Месяц = Сред(Строка, Найти(Шаблон, "ММ"),2);
    День = Сред(Строка, Найти(Шаблон, "ДД"),2);
    ЕстьЧасы = Найти(Шаблон,"чч");

    Если ЕстьЧасы>0 Тогда
        Час = Сред(Строка,ЕстьЧасы,2);
    Иначе
        Час = "0";
    КонецЕсли;

    ЕстьМинуты = Найти(Шаблон,"мм");
    Если ЕстьМинуты>0 Тогда
        Минута = Сред(Строка,ЕстьМинуты,2);
    Иначе
        Минута = "0";
    КонецЕсли;

    ЕстьСекунды = Найти(Шаблон,"сс");
    Если ЕстьСекунды>0 Тогда
        Секунда = Сред(Строка,ЕстьСекунды,2);
    Иначе
        Секунда = "0";
    КонецЕсли;

    Год = Строка(Формат(Число(СокрЛП(Год)), "ЧЦ=4; ЧН=2000; ЧВН=; ЧГ="));
    Месяц = Строка(Формат(Число(СокрЛП(Месяц)), "ЧЦ=2; ЧН=01; ЧВН=; ЧГ="));
    День = Строка(Формат(Число(СокрЛП(День)), "ЧЦ=2; ЧН=01; ЧВН=; ЧГ="));
    Час = Строка(Формат(Число(СокрЛП(Час)), "ЧЦ=2; ЧН=00; ЧВН=; ЧГ="));
    Минута = Строка(Формат(Число(СокрЛП(Минута)), "ЧЦ=2; ЧН=00; ЧВН=; ЧГ="));
    Секунда = Строка(Формат(Число(СокрЛП(Секунда)), "ЧЦ=2; ЧН=00; ЧВН=; ЧГ="));
    Если Режим = "Дата" Тогда
        Возврат Дата(Год+Месяц+День+Час+Минута+Секунда);
    ИначеЕсли Режим = "Строка" Тогда
        Возврат Год+Месяц+День+Час+Минута+Секунда;
    Иначе
        Стр = Режим;
        Стр = СтрЗаменить(Стр,"ГГГГ",Год);
        Стр = СтрЗаменить(Стр,"ММ",Месяц);
        Стр = СтрЗаменить(Стр,"ДД",День);
        Стр = СтрЗаменить(Стр,"чч",Час);
        Стр = СтрЗаменить(Стр,"мм",Минута);
        Стр = СтрЗаменить(Стр,"сс",Секунда);
        Возврат Стр;
    КонецЕсли;
Исключение
    Возврат Дата("00010101");
    КонецПопытки;
КонецФункции // ИзСтрокиВДату()