Конвертация времени в формате TimeSpan

Функция ПарсингTimeSpan(Дата)
    Дата = СокрЛП(СтрЗаменить(Дата,"PT",""));
    Час = 0;
    Минута = 0;
    Секунда = 0;

    // Проверяем есть ли время
    Часы = Найти(Дата,"H");
    Если Часы > 0 Тогда
        Час = Лев(Дата,Часы-1);
        Дата = СокрЛП(СтрЗаменить(Дата,""+Час+"H",""));
    КонецЕсли;

    Минуты = Найти(Дата,"M");

    Если Минуты > 0 Тогда
        Минута = Лев(Дата,Минуты-1);
        Дата = СокрЛП(СтрЗаменить(Дата,""+Минута+"M",""));
    КонецЕсли;

    Секунды = Найти(Дата,"S");
    Если Секунды > 0 Тогда
        Секунда = Лев(Дата,Секунды-1);
    КонецЕсли;

    Возврат Дата(1,1,1,Час,Минута,Секунда);


КонецФункции