---

// 1. Ввод строки с датой
Стр = "";
ВвестиСтроку(Стр, "Введите дату в формате ДД.ММ.ГГГГ", 20);
Стр = СокрЛП(Стр);

// 2. Разбираем строку на день, месяц, год
День  = Число(Лев(Стр, 2));
Месяц = Число(Сред(Стр, 4, 2));
Год   = Число(Прав(Стр, 4));

// 3. Создаём дату из чисел
ДатаИзСтроки = Дата(Год, Месяц, День);

// 4. Выводим результат
Сообщить("Введённая строка: " + Стр);
Сообщить("Полученная дата: " + Формат(ДатаИзСтроки, "ДФ=""гггг-ММ-дд"""));