Фамилия в дательном падеже Ключевые слова: фамилия, дательный, падеж
///////////////////////////////////////////////////////////////////////
//Фамилия в дательном падеже
Функция ДательныйПадеж(прм_Фио)
стр=СокрЛП(прм_Фио);
п=Найти(стр," ");
Если п=0 Тогда
стр1=СокрЛП(стр);//фамилия
стр2="";//окончание
Иначе
стр1=СокрЛП(лев(стр,п));
стр2=СокрЛП(сред(стр,п));
КонецЕсли;
стр1=стр1+" ";
Если Найти(стр1,"о ")>0 Тогда
//не изменяем
ИначеЕсли Найти(стр1,"и ")>0 Тогда
//не изменяем
ИначеЕсли Найти(стр1,"а ")>0 Тогда
стр1=СтрЗаменить(стр1,"а ","ой ");
ИначеЕсли Найти(стр1,"ая ")>0 Тогда
стр1=СтрЗаменить(стр1,"ая ","ой ");
ИначеЕсли Найти(стр1,"ий ")>0 Тогда
стр1=СтрЗаменить(стр1,"ий ","ому ");
ИначеЕсли Найти(стр1,"ь ")>0 Тогда
стр1=СтрЗаменить(стр1,"ь ","ю ");
Иначе
стр1=СтрЗаменить(стр1," ","у ");
КонецЕсли;
Возврат стр1+ стр2;
КонецФункции
|