При чтении файла эксель колонка "ДатаРождения" (с форматом - дата) - читается как строка.
Вот данный код, который читает:

    Попытка
        Excel     = Новый COMОбъект("Excel.Application");
        WB         = Excel.Workbooks.Open(ПутьКФайлу);
        WS         = WB.Worksheets(1);
        arr     = WS.UsedRange.Value;  
        WB.Close(0);
    Исключение
        Предупреждение("Внимание! Файл не открыт."+Символы.ПС+"Попробуйте открыть и пересохранить данный файл программой Excel.");
        Возврат;
    КонецПопытки;
    
    МассивКолонок = arr.Выгрузить();
С чем это может быть связано?

(0) получаю так: ДатаРождения =МассивКолонок.Получить(4).Получить(строкаТП);
и эту переменную невозможно преобразовать ни к числу, ни к дате! она строка, хотя в экселе она дата

напиши парсер строки в дату

(1) в начале строки нет спец или служебных символов?

(3) нет

Функция элВыделитьСловоТочка(ИсходнаяСтрока)
    
    Буфер = СокрЛ(ИсходнаяСтрока);
    ПозицияПослПробела = Найти(Буфер, ".");
    
    Если ПозицияПослПробела <2 Тогда
        ИсходнаяСтрока = "";
        Возврат Буфер;
    КонецЕсли;
    
    ВыделенноеСлово = СокрЛП(Лев(Буфер, ПозицияПослПробела-1));
    ИсходнаяСтрока = Сред(ИсходнаяСтрока, ПозицияПослПробела + 1);
    
    Возврат ВыделенноеСлово;
    
КонецФункции


    ДатаСтр=ДатаСтр0;
    День_Стр=элВыделитьСловоТочка(ДатаСтр);
    Месяц_Стр=элВыделитьСловоТочка(ДатаСтр);
    Год_Стр=элВыделитьСловоТочка(ДатаСтр);
    
    Если СтрДлина(Год_Стр)>4 Тогда
        Если ((КодСимвола(Год_Стр,3)>=48)) и  ((КодСимвола(Год_Стр,3)<=57)) тогда
            Год_Стр = Лев(Год_Стр,4);
        Иначе
            Год_Стр = Лев(Год_Стр,2);
        Конецесли;
    КонецЕсли;
    
    Попытка
        День_Числ=Число(День_Стр);
        Месяц_Числ=Число(Месяц_Стр);
        Год_Числ=Число(Год_Стр);
        Если Год_Числ<100 Тогда
            Если Год_Числ<15 Тогда
                Год_Числ=Год_Числ+2000;
            Иначе
                Год_Числ=Год_Числ+1900;
            КонецЕсли;
        КонецЕсли;
        ДатаВвода=Дата(Год_Числ,Месяц_Числ,День_Числ,0,0,0);
    Исключение
        ОшбкаДатыввода=Истина;
    КонецПопытки;

(5) не понятно как работает код ниже функции

(6) вот это что:
ДатаСтр=ДатаСтр;
    День_Стр=элВыделитьСловоТочка(ДатаСтр);
    Месяц_Стр=элВыделитьСловоТочка(ДатаСтр);
    Год_Стр=элВыделитьСловоТочка(ДатаСтр);

(7) разбивание строки по точкам на части.