---

// Ищем первую точку
Точка1 = Найти(ДатаСтр, ".");                       // например 3

// Берём остаток после первой точки
Остаток = Сред(ДатаСтр, Точка1 + 1, СтрДлина(ДатаСтр) - Точка1);  // "04.1988"

// Ищем точку в остатке
Точка2 = Найти(Остаток, ".");                       // 3 (внутри остатка)

// Извлекаем части
День  = Лев(ДатаСтр, Точка1 - 1);                   // "21"
Месяц = Лев(Остаток, Точка2 - 1);                   // "04"
Год   = Сред(Остаток, Точка2 + 1, СтрДлина(Остаток) - Точка2);  // "1988"