Как преобразовать СТРОКУ вида 27.10.92 в ДАТУ 27.10.1992?

Пробовала функцией ниже, но выдает ошибку.


СтрокуВДату = РазобратьДату(Данные.ДатаРождения);  
ФизЛицо.ДатаРождения = Формат(СтрокуВДату, "ДФ=dd.MM.yyyy");

Функция РазобратьДату(ИзмДата);
    Возврат Дата(Сред(ИзмДата,7,4)+Сред(ИзмДата,4,2)+Сред(ИзмДата,0,2));
КонецФункции

попробуй просто Дата(Данные.ДатаРождения).

(0) это та самая легендарная единственная ошибка 1С?

(0)  Возврат Дата(Сред(ИзмДата,7,4)+Сред(ИзмДата,4,2)+Сред(ИзмДата,1,2));

СтрокуВДату = "921027".  Ты же год полностью не получаешь. Сред(ИзмДата,7,4) вернет ток "92".

Похоже без анализа года не обойтись....

Ошибка МИЛЕНИУМ похоже....

(0) подозреваю, что там даты рождения записаны в строке. если год больше 17, то добавлять 19, если меньше или равен - 20

Ап!

Функция РазобратьДату(ИзмДата);
Год = Сред(ИзмДата,7,4)
Если СтрДлина(Год)<4 Тогда
  ГодЧислом = Число(Год);
  ГодНачалаСтолетия = 20;
  Если ГодЧислом > ГодНачалаСтолетия Тогда
    Год  = "19"+Год;
  Иначе
    Год  = "20"+Год;
  КонецЕсли;
КонецЕсли;

Возврат Дата(Год+Сред(ИзмДата,4,2)+Сред(ИзмДата,0,2));
КонецФункции

(9) СПАСИБО!!! Все получилось!!!

(10) Цирк-шапито да и только :)

"Как преобразовать СТРОКУ вида 27.10.92" - там не строка, там всё-таки дата. Если учитывать (9) и "все получилось"(цы)

(11) Эээ... что не так? Из строки "27.10.92" получили дату 27.10.1992

Упс, конец напряженного рабочего дня :) "Прошу понять и простить"(с)

В качестве компенсации - функция, которая по мнению автора любую экзотику пережуёт, проглотит и выплюнет как дату - лишь бы там только цифры были :)


Функция ПроизвольнаяСтрокаДатыДвеЦифрыГода(Знач СтрДата)

    СтрДата = СтрЗаменить(СтрДата, ".", Символы.ПС);
    СтрДата = СтрЗаменить(СтрДата, "/", Символы.ПС);
    СтрДата = СтрЗаменить(СтрДата, "-", Символы.ПС);
    Год = Число(СтрПолучитьСтроку(СтрДата,3));
    Возврат Дата( ?(Год<100, 2000, 0) + Год, Число(СтрПолучитьСтроку(СтрДата,2)), Число(СтрПолучитьСтроку(СтрДата,1)));

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


PS: даты с двумя цифрами года преобразуются в дату прошлого века ;)

PSS: в алгоритме, как всегда, киндер-сюрприз для непосвящённых :))

Если Строка = "27.10.92" Тогда
   Возврат Дата(1992, 10, 27);
КонецЕсли;

Это же элементарно!