LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
07 февраля 2005
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Склоненни...
Тема: Склоненние ФИО
15.06.2007 21:03:16
Paul
17 сообщения
Тема: Склоненние ФИО
Мне понадобилась программа склонения ФИО. Пользователь пишет в отдельные поля Фамидию Имя и Отчество физического лица в именительном падеже без указания отношения лица к полу (М или Ж). Нужно просклонять Фамилию Имя и Отчество по падежам (Именительный, Родительный, Дательный, Творительный, Предложный).
Если у кого есть проверенная наработка в Access или Basic, убедительно прошу поделиться!
P.S. Обсуждение разных тем
Автор:
vova
от 21.10.2002 8:03:38
Источник ...
15.06.2007 21:03:16
Валерий3
43 сообщения
RE: Склоненние ФИО
Присоединяюсь к просьбе.
тоже был бы признателен.
P.S. Обсуждение разных тем
Автор:
Валера
от 21.10.2002 8:42:24
Источник ...
15.06.2007 21:03:16
Валерий3
43 сообщения
RE: Склоненние ФИО
ВОТ ЧТО Я НАШЕЛ. ЕСТЬ ЕЩЕ И НА МИКРОСОФТЕ КОЕ-ЧТО
Function FIO(SN As String) As String ' чей, чья
If Right$(SN, 1) = "в" Or Right$(SN, 1) = "н" Or Right$(SN, 1) = "с" Or Right$(SN, 1) = "к" Or Right$(SN, 1) = "г" Or Right$(SN, 1) = "ч" Or Right$(SN, 1) = "ц" Then
FIO = SN + "а"
ElseIf Right$(SN, 2) = "ва" Then
FIO = Left$(SN, Len(SN) - 1) + "ой"
ElseIf Right$(SN, 2) = "ь" Then
FIO = Left$(SN, Len(SN) - 1) + "я"
ElseIf Right$(SN, 2) = "ая" Then
FIO = Left$(SN, Len(SN) - 2) + "ой"
ElseIf Right$(SN, 2) = "ый" Then
FIO = Left$(SN, Len(SN) - 2) + "ого"
ElseIf Right$(SN, 2) = "ий" Then
FIO = Left$(SN, Len(SN) - 2) + "ого"
ElseIf Right$(SN, 2) = "ец" Then
FIO = Left$(SN, Len(SN) - 2) + "ца"
Else
FIO = SN
End If
MsgBox FIO
End Function
Function FIOk(SN As String) As String ' кому
If Right$(SN, 1) = "в" Or Right$(SN, 1) = "н" Or Right$(SN, 1) = "с" Or Right$(SN, 1) = "к" Or Right$(SN, 1) = "г" Or Right$(SN, 1) = "ч" Or Right$(SN, 1) = "ц" Then
FIOk = SN + "у"
ElseIf Right$(SN, 2) = "ва" Then
FIOk = Left$(SN, Len(SN) - 1) + "ой"
ElseIf Right$(SN, 1) = "ь" Then
FIOk = Left$(SN, Len(SN) - 1) + "ю"
ElseIf Right$(SN, 2) = "ая" Then
FIOk = Left$(SN, Len(SN) - 2) + "ой"
ElseIf Right$(SN, 2) = "ый" Then
FIOk = Left$(SN, Len(SN) - 2) + "ому"
ElseIf Right$(SN, 2) = "ий" Then
FIOk = Left$(SN, Len(SN) - 2) + "ому"
ElseIf Right$(SN, 2) = "ец" Then
FIOk = Left$(SN, Len(SN) - 2) + "цу"
Else
FIOk = SN
End If
MsgBox FIOk
End Function
P.S. Обсуждение разных тем
Автор:
Валера
от 21.10.2002 9:41:55
Источник ...
15.06.2007 21:03:16
Rustam
19 сообщения
RE: Склоненние ФИО
Дамы и господа, такая программа проскакивала, только поискать ее надо, а начало тут www.microsoft.ru/offext/ а может и нет, а может и на хайпроге...
P.S. Обсуждение разных тем
Автор:
Rustam
от 21.10.2002 9:49:42
Источник ...
15.06.2007 21:03:16
Валерий3
43 сообщения
RE: Склоненние ФИО
Здесь все описано подробно:
http://www.delphikingdom.com/mastering/poligon/webpadeg.htm
P.S. Обсуждение разных тем
Автор:
Валера
от 21.10.2002 9:52:24
Источник ...
Страница 1 из 2
1
2
Следующий
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Склоненни...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования