Категория:
Полезные, Универсальные Функции Версии: 7.x 8.x
Функция ФамилияИО(ПолнИмя) Экспорт
ПервПроб = Найти(ПолнИмя," " );
Если ПервПроб=0 Тогда
Возврат ПолнИмя;
Иначе
Фамилия = Лев(ПолнИмя,ПервПроб);
ИО = Сред(ПолнИмя,ПервПроб+1);
ИО = СокрЛ(ИО);
Имя = Лев(ИО,1)+" ." ;
ВтПроб = Найти(ИО," "