&НаКлиенте
Функция СтрокаВДату(ДатСтрокой)
Дат1 = ?(СтрДлина(ДатСтрокой)=10,Дата(Прав(ДатСтрокой,4)+Сред(ДатСтрокой,4,2)+Лев(ДатСтрокой,2)),'00010101');
Возврат Дат1;
КонецФункции // СтрокаВДату()
&НаКлиенте
Функция СтрокаВДату(ДатСтрокой)
Дат1 = ?(СтрДлина(ДатСтрокой)=10,Дата(Прав(ДатСтрокой,4)+Сред(ДатСтрокой,4,2)+Лев(ДатСтрокой,2)),'00010101');
Возврат Дат1;
КонецФункции // СтрокаВДату()