Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Фамилия в падежах


Автор: Guest 11.9.2005, 19:58
вводится фамилия в именительном падеже Мужская и женская
выводится список в различных падежах
введено Иванов, Петрова
получено Иванову, Петровой

Если в мужской фамилии решается простым добавлением буквы то в женской нужно убрать последнюю букву и добавить "ой"
как это сделать?

Автор: Gannibal 11.9.2005, 20:36
берёшь фамилию женскую например находиться в переменной strFam и пишеш код

Код

intDlina = Len(strFam)
strFam = Mid(strFam, 1, intDlina-1)
strFam = strFam & "ой"


типа такого .. непроверял smile должно в принципе работать

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)