Склонение фамилий в программе, способы реализации

@Yeaahhhh · Регистрация: 05.05.2012

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Function DativeCase(sSurname$, Optional sName$, Optional sPatronymic$) As String
 
    Application.Volatile True
    On Error Resume Next
    If sName$ = "" And sPatronymic$ = "" Then
        arr = Split(Application.Trim(sSurname$))
        sSurname$ = arr(0): sName$ = arr(1): sPatronymic$ = arr(2)
    End If
 
    Dim bMaleSex As Boolean: bMaleSex = (Right(sPatronymic, 1) = "ч")
 
    If Len(sSurname) > 0 Then    
        If bMaleSex Then
            Select Case Right(sSurname, 1)
                Case "о", "и", "я", "а": DativeCase = sSurname
                Case "й": DativeCase = Mid(sSurname, 1, Len(sSurname) - 2) + "ому"
                Case Else: DativeCase = sSurname + "у"
                 If bMaleSex Then
                    Select Case (sSurname)
                        Case "паршивлюк", "хомяк": DativeCase = sSurname
                    End Select
                End If
            End Select
        Else
            Select Case Right(sSurname, 1)
                Case "о", "и", "б", "в", "г", "д", "ж", "з", "к", "л", "м", "н", "п", _
                     "р", "с", "т", "ф", "х", "ц", "ч", "ш", "щ", "ь": DativeCase = sSurname
                Case "я": DativeCase = Mid(sSurname, 1, Len(sSurname) - 2) & "ой"
                Case Else: DativeCase = Mid(sSurname, 1, Len(sSurname) - 1) & "ой"
            End Select
        End If
        DativeCase = DativeCase & " "
    End If
 
    If Len(sName) > 0 Then    
        If bMaleSex Then
            Select Case Right(sName, 1)
                Case "й", "ь": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "ю"
                Case "л": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 2) & "лу"
                Case "я": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "е"
                Case Else: DativeCase = DativeCase & sName & "у"
            End Select
        Else
            Select Case Right(sName, 1)
                Case "а", "я"
                    If Mid(sName, Len(sName) - 1, 1) = "и" Then
                        DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "и"
                    Else
                        DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "е"
                    End If
                Case "ь": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "и"
                Case Else: DativeCase = DativeCase & sName
            End Select
        End If
        DativeCase = DativeCase & " "
    End If
 
    If Len(sPatronymic) > 0 Then    
        If bMaleSex Then
            DativeCase = DativeCase & sPatronymic & "у"
        Else
            DativeCase = DativeCase & Mid(sPatronymic, 1, Len(sPatronymic) - 1) & "е"
        End If
    End If
End Function

у меня возникла проблема, где склоняется фамилия, а именно тут

Visual Basic
1
2
3
4
5
                 If bMaleSex Then
                    Select Case (sSurname)
                        Case "паршивлюк", "хомяк": DativeCase = sSurname
                    End Select
                 End If

нужно сделать не по одной фамилии вписывать, а сделать ссылку на документ .txt например и уже что бы он от туда брал фамилии. как это сделать не подскажите?

@PAnT0P · 18.05.2012, 14:14

Не по теме:

Успехов тебе, в борьбе с великим и могучим! ;)

Подолью маленько масло в огонь, вот тебе пару реальных людей:
Мария Сычь
Володя Сушко
Протестируй свой алгоритм.

@Yeaahhhh · 18.05.2012, 15:59 **[ТС]**

в проге задано все по порядку, сначала фамилия потом имя и потом отчество. так что все норм.

Сычь Марии
Сушко Володе

ну так что, если идеи как реализовать чтение фамилий которые не склоняются (не из-за правил) из файла?

@Ципихович Эндрю · 18.05.2012, 18:24

Сообщение от Yeaahhhh

сделать ссылку на документ .txt например и уже что бы он от туда брал фамилии

а зачем? лучше указать все правила в коде, на крайний случай в Variables (если это Ворд) чтобы файл за собой не таскать

Памирыч · 18.05.2012, 19:34

Yeaahhhh, одного моего знакомого зовут Никотин Спиртович Бухайло.
Его тоже ни одна программа не склоняет.

Это я к тому, что не заморачивайтесь с такими сочетаниями, всех все равно не перечислишь

@Ципихович Эндрю · 18.05.2012, 19:47

Сообщение от Памирыч

Никотин Спиртович Бухайло

несколько\множество этапов проверки - разложит на фамилия имя отчество и заорёт, что отчество Бухайло не допустимо

@Yeaahhhh · 18.05.2012, 22:01 **[ТС]**

Да я не парюсь) меня особо не волнует какие там фамилии не склоняются) просто надо так сделать и все) Но я уже разобрался, если кому интересно:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Function DativeCase(sSurname$, Optional sName$, Optional sPatronymic$) As String
 
     Application.Volatile True
    On Error Resume Next
     If sName$ = "" And sPatronymic$ = "" Then
         arr = Split(Application.Trim(sSurname$))
         sSurname$ = arr(0): sName$ = arr(1): sPatronymic$ = arr(2)
     End If
 
     Dim bMaleSex As Boolean: bMaleSex = (Right(sPatronymic, 1) = "ч")
  Dim Numb As Integer
  Dim sPyt As String
        sPyt = "C:\file.txt"
        Numb = FreeFile
        Open sPyt For Input As Numb
     If Len(sSurname) > 0 Then    '   Фамилия
         If bMaleSex Then
             Select Case Right(sSurname, 1)
                 Case "о", "и", "я", "а": DativeCase = sSurname
                 Case "й": DativeCase = Mid(sSurname, 1, Len(sSurname) - 2) + "ому"
                 Case Else: DativeCase = sSurname + "у"
                 
                    If bMaleSex Then
        Do While Not EOF(Numb)
        Line Input #Numb, sText
                        Select Case (sSurname)
                            Case sText: DativeCase = sSurname
                        End Select
        Loop
        Close #Numb
                    End If
                    
             End Select
         Else
             Select Case Right(sSurname, 1)
                 Case "о", "и", "б", "в", "г", "д", "ж", "з", "к", "л", "м", "н", "п", _
                      "р", "с", "т", "ф", "х", "ц", "ч", "ш", "щ", "ь": DativeCase = sSurname
                 Case "я": DativeCase = Mid(sSurname, 1, Len(sSurname) - 2) & "ой"
                 Case Else: DativeCase = Mid(sSurname, 1, Len(sSurname) - 1) & "ой"
                 
                   If (bMaleSex = False) Then
        Do While Not EOF(Numb)
        Line Input #Numb, sText
                     Select Case (sSurname)
                         Case sText: DativeCase = sSurname
                     End Select
        Loop
        Close #Numb
                   End If
                  
             End Select
         End If
         DativeCase = DativeCase & " "
     End If
 
     If Len(sName) > 0 Then    '   Имя
         If bMaleSex Then
             Select Case Right(sName, 1)
                 Case "й", "ь": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "ю"
                 Case "л": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 2) & "лу"
                 Case "я": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "е"
                 Case Else: DativeCase = DativeCase & sName & "у"
             End Select
         Else
             Select Case Right(sName, 1)
                 Case "а", "я"
                     If Mid(sName, Len(sName) - 1, 1) = "и" Then
                         DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "и"
                     Else
                         DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "е"
                     End If
                 Case "ь": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "и"
                 Case Else: DativeCase = DativeCase & sName
             End Select
         End If
         DativeCase = DativeCase & " "
     End If
 
     If Len(sPatronymic) > 0 Then    '   Отчество
         If bMaleSex Then
             DativeCase = DativeCase & sPatronymic & "у"
         Else
             DativeCase = DativeCase & Mid(sPatronymic, 1, Len(sPatronymic) - 1) & "е"
         End If
     End If
 End Function

@Ципихович Эндрю · 18.05.2012, 22:11

как у Вас не вникал, вот мой отрезок программы на эту тему:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Select Case Последняя_буква_фамилии
    Case "о", "е", "и", "у", "ы", "э", "ю": GoTo Несклоняемая_фамилия_М_Ж
    End Select
 
    Select Case Две_последние_буквы_фамилии
    Case "ок", "ак", "як", "их", "ых", "ия", "уа", "иа": GoTo Несклоняемая_фамилия_М_Ж
    End Select
 
    Select Case Три_последние_буквы_фамилии
    Case "ава": GoTo Несклоняемая_фамилия_М_Ж
    End Select
 
    Select Case Четыре_последние_буквы_фамилии
    Case "идис", "адис": GoTo Несклоняемая_фамилия_М_Ж
    End Select
 
    'Женские
    Select Case Последняя_буква_фамилии
        Case "б", "в", "г", "д", "ж", "з", "й", "к", "л", "м", "н", "п", "р", "с", "т", "ф", "х", "ц", "ч", "ш", "щ", "ъ", "ь": GoTo Несклоняемая_фамилия_Ж
        End Select
    End If

@Yeaahhhh · 01.06.2012, 11:16 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Function DativeCase(sSurname$, Optional sName$, Optional sPatronymic$) As String
 
     Application.Volatile True
    On Error Resume Next
     If sName$ = "" And sPatronymic$ = "" Then
         arr = Split(Application.Trim(sSurname$))
         sSurname$ = arr(0): sName$ = arr(1): sPatronymic$ = arr(2)
     End If
 
     Dim bMaleSex As Boolean: bMaleSex = (Right(sPatronymic, 1) = "÷")
  Dim Numb As Integer
  Dim sPyt As String
        sPyt = "C:\file.txt"
        Numb = FreeFile
        Open sPyt For Input As Numb
     If Len(sSurname) > 0 Then    '   Ôàìèëèÿ
         If bMaleSex Then
             Select Case Right(sSurname, 1)
                 Case "î", "è", "ÿ", "à": DativeCase = sSurname
                 Case "é": DativeCase = Mid(sSurname, 1, Len(sSurname) - 2) + "îìó"
                 Case Else: DativeCase = sSurname + "ó"
                 
                    If bMaleSex Then
        Do While Not EOF(Numb)
        Line Input #Numb, sText
                        Select Case (sSurname)
                            Case sText: DativeCase = sSurname
                        End Select
        Loop
        Close #Numb
                    End If
                    
             End Select
         Else
             Select Case Right(sSurname, 1)
                 Case "î", "è", "á", "â", "ã", "ä", "æ", "ç", "ê", "ë", "ì", "í", "ï", _
                      "ð", "ñ", "ò", "ô", "õ", "ö", "÷", "ø", "ù", "ü": DativeCase = sSurname
                 Case "ÿ": DativeCase = Mid(sSurname, 1, Len(sSurname) - 2) & "îé"
                 Case Else: DativeCase = Mid(sSurname, 1, Len(sSurname) - 1) & "îé"
                 
                   If (bMaleSex = False) Then
        Do While Not EOF(Numb)
        Line Input #Numb, sText
                     Select Case (sSurname)
                         Case sText: DativeCase = sSurname
                     End Select
        Loop
        Close #Numb
                   End If
                  
             End Select
         End If
         DativeCase = DativeCase & " "
     End If
 
     If Len(sName) > 0 Then    '   Èìÿ
         If bMaleSex Then
             Select Case Right(sName, 1)
                 Case "é", "ü": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "þ"
                 Case "ë": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 2) & "ëó"
                 Case "ÿ": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "å"
                 Case Else: DativeCase = DativeCase & sName & "ó"
             End Select
         Else
             Select Case Right(sName, 1)
                 Case "à", "ÿ"
                     If Mid(sName, Len(sName) - 1, 1) = "è" Then
                         DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "è"
                     Else
                         DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "å"
                     End If
                 Case "ü": DativeCase = DativeCase & Mid(sName, 1, Len(sName) - 1) & "è"
                 Case Else: DativeCase = DativeCase & sName
             End Select
         End If
         DativeCase = DativeCase & " "
     End If
 
     If Len(sPatronymic) > 0 Then    '   Îò÷åñòâî
         If bMaleSex Then
             DativeCase = DativeCase & sPatronymic & "ó"
         Else
             DativeCase = DativeCase & Mid(sPatronymic, 1, Len(sPatronymic) - 1) & "å"
         End If
     End If
 End Function

вот я сделал все, что бы не склоняемые фамилии брались из файла.
у меня теперь просьба, народ помогите сделать диалог с пользователем, что бы прога предварительно спрашивала фамилия склоняется или нет. Если да то по всем правилам, а если нет то писалась такая какая есть. Это нужно ппц как. выручайте плиз)

Добавлено через 18 часов 57 минут
ап. Все еще нужна ваша помощь)

@АлИв · 05.08.2013, 17:31

Целый день блуждаю по инету в поисках рабочего кода VBA или модуля для Access для склонения ФИО.
Подскажите пожалуйста. Вот в этом обсуждении выдается ошибка, видимо ссылка на какую то библиотеку
Application.Volatile True - это что?
Кстати по Exell много материала. Можно ли его подогнать под Access.
В склонении ФИО интересует родительный (кого), дательный (кому) и творительный (кем) падежи.
Наши законодатели так напридумывали форм документов...
Не претендую на всеобщее полное исследование и склонение "изысканных" и "редких" фамилий. Для этого можно предусмотреть ручное исправление. Ну хотя бы на 90% чтоб работала...
P.S. Если кто не верит, посмотрите весь форум, ничего конкретного не найти! Все "посылают" куда-то, кто в делфи, кто в дебри... Помогите, люди добрые!

@The_Prist · 05.08.2013, 18:35

Application.Volatile True
Это только для Excel. Если планируете в другой программе использовать - удалите эту строку. Она отвечает за пересчет функции при любом изменении на листе.
А в остальном - выше есть функция, которая вроде бы рабочая. Правда, переделывать её на склонения по трем падежам дело явно не быстрое. Когда-то где-то видел DLL, которая умеет склонять большую часть ФИО. Или DLL не вариант?

@Dmitrii · 05.08.2013, 23:14

АлИв, могу предложить готовый вариант "склонялки" для дательного падежа.
Он достаточно тщательно выверен по справочнику Д.Э. Розенталя, хотя, конечно, 100% точности не даёт.

@АлИв · 06.08.2013, 06:40

Спасибо всем.
Из кода то есть надо удалить:

Visual Basic
1
2
3
4
5
6
Application.Volatile True
    On Error Resume Next
    If sName$ = "" And sPatronymic$ = "" Then
        arr = Split(Application.Trim(sSurname$))
        sSurname$ = arr(0): sName$ = arr(1): sPatronymic$ = arr(2)
    End If

Правильно?

Пример для Exell посмотрю. Его так же можно приспособить к Access?
А вообще непаханное поле... Одна прога пишет ГОЙ-ГОМУ, Другая ГОЙ-ГОЮ, но МОЛОДОЙ-МОЛОДОЮ...
Ну это мелочи поправимые!!!

SoftIce · 06.08.2013, 07:15

Сообщение от Dmitrii

могу предложить готовый вариант "склонялки" для дательного падежа

По аналогии добавил родительный и творительный

@Dmitrii · 06.08.2013, 07:59

SoftIce, у Вас вместо родительного падежа получился винительный.
В односложных фамилиях, оканчивающихся на мягкий знак, ударение не должно бы менять своего места, поэтому не должно появляться буквы "ё" в окончании творительного падежа.
Увидел ещё и свою недоделку с именем Пётр.

Добавлено через 10 минут

Сообщение от АлИв

А вообще непаханное поле...

В русском языке нет жёстких правил для склонения фамилий (и имён тоже) иностранного происхождения. К тому же, иногда сразу и нельзя определить происхождение фамилии. В ряде случаев способ склонения зависит от слога, на который падает ударение. Есть исключения для фамилий русского происхождения, совпадающих с каким-либо нарицательным существительным (например, Бобёр), которое рекомендует (но не требует) не склонять такие фамилии. Наконец, есть укоренившиеся в традиции носителей той или иной фамилии правила её склонения.
Отсюда и масса разночтений.

SoftIce · 06.08.2013, 09:12

Сообщение от Dmitrii

SoftIce, у Вас вместо родительного падежа получился винительный.

Не по теме:

Сообщение от Dmitrii

А вообще непаханное поле...

:yes: :good:

@АлИв · 06.08.2013, 15:48

Спасибо всем. Глядишь, всем миром что то сотворим полезное!
Пойду тренироваться...

Добавлено через 4 часа 17 минут

Сообщение от Dmitrii

АлИв, могу предложить готовый вариант "склонялки" для дательного падежа.
Он достаточно тщательно выверен по справочнику Д.Э. Розенталя, хотя, конечно, 100% точности не даёт.

Увы, Ваш вариант подогнать под Acces не получилось. Может кто поможет? Если можно.

А вот функция предыдущая пошла, убрав ненужные строки как советовали.

Вопрос Dmitrii: а только фамилии или имена не склоняются? При пустых строках функция почему то не работает
Можно ли Ваш пример сделать без кнопки? Что бы при заполнении фамилии сразу появлялся результат склонения.

@Ципихович Эндрю · 06.08.2013, 20:43

Сообщение от АлИв

При пустых строках функция почему то не работает

мне кажется не работает, потому что по отчеству она выясняет пол, а если пусто, пол узнать не может и отсюда тормоза

Добавлено через 32 минуты
респект, нашёл баги у себя

По моей программе должно быть Бобок Антону Сергеевичу в отличии от Бобку Антону Сергеевичу

По моей программе должно быть Туляковой Евгение Петровне в отличии от Туляковой Евгении Петровне

Какие тут правила русского языка срабатывают?

Добавлено через 1 минуту

Сообщение от Dmitrii

Увидел ещё и свою недоделку с именем Пётр

имеется ввиду ё меняется на е?

Добавлено через 5 минут
по поводу фамилии Бобок, не согласен, есть правило
Если Две_последние_буквы_фамилии
Case "ок", "ак", "як", "их", "ых", "ия", "уа", "иа"
Тогда Несклоняемая_фамилия_М_Ж
Мнения??

Добавлено через 43 минуты
ещё где то я читал, что
если Две_последние_буквы_имени
Case "аа", "ая", "яа", "яя", "оа", "оя", "ёа", "ёя", "уа", "уя", "юа", "ыа", "ыя", "иа", "эа", "эя", "еа"
тогда Несклоняемое_имя_М_Ж
тогда это не клеится с именем Зоя, признаёт его как не склоняемое, и какие мнения?

morgann55 · 06.08.2013, 21:06

Сообщение от Ципихович Эндрю

Добавлено через 43 минуты
ещё где то я читал, что
если Две_последние_буквы_имени
Case "аа", "ая", "яа", "яя", "оа", "оя", "ёа", "ёя", "уа", "уя", "юа", "ыа", "ыя", "иа", "эа", "эя", "еа"
тогда Несклоняемое_имя_М_Ж
тогда это не клеится с именем Зоя, признаёт его как не склоняемое, и какие мнения?

Ну последнее-то явно с дырой: так и Рая не будет склоняться (наверняка и ещё можно подобрать)

(хотя это для полных имён, ПАРДОН)

Добавлено через 15 минут
Во, нашёл: Аглая

@Dmitrii · 06.08.2013, 23:41

Сообщение от АлИв

... а только фамилии или имена не склоняются?..

Отчества тоже могут не склоняться. Например, Тимур-оглы.

Сообщение от АлИв

... При пустых строках функция почему то не работает...

Не обрабатываются строки, в которых отсутствует фамилия или одновременно имя и отчество.

Сообщение от АлИв

... Можно ли Ваш пример сделать без кнопки?...

Смотрите прикреплённую книгу, второй лист.
Склонение будет выполняться если заполнены все три базовых поля (Ф.И.О.) или в любое из этих полей внесено изменение, если они уже были заполнены ранее.
Действие выполняет процедура Declin(), код которой размещён в модуле 2. Вызывает её процедура Worksheet_Change(), код которой размещён модуле кода листа 2.

Сообщение от Ципихович Эндрю

... Какие тут правила русского языка срабатывают?..

1. Для фамилии Бобок.
Нерусские фамилии, оканчивающиеся на согласную букву или мягкий знак, склоняются в мужском роде и не склоняются в женском. Однако, строго говоря, это не правило, а устоявшаяся на сегодняшний день традиция.
Впрочем, здесь есть ещё одна деталь. Предполагается, что фамилия Бобок имеет восточнославянское (белорусское) происхождение, а ударение в ней падает на последний слог. Поэтому в дательном падеже последняя "о" выпадает. Получается Бобку.
Если ударение перенести на первый слог, то выпадающих гласных не будет. Получится Бобоку.
Если же предположить, что эта фамилия имеет западнославянское (чешское) происхождение, то независимо от того, куда падает ударение, выпадающих гласных не будет.

2. Имя Евгения, как и все женские имена, оканчивающиеся на "ия", относятся ко второму типу склонения. В родительном, дательном и предложном падежах эти имена оканчиваются на "и".
А вот это уже одно из грамматических правил.

Сообщение от Ципихович Эндрю

... есть правило ... ещё где то я читал...

Советую найти подходящие справочники Дитмара Эльяшевича Розенталя. На сегодняшний день это один из наиболее авторитетных как в редакторской, так и в академической среде специалист по грамматике русского языка.

P.S. Пока писал этот комментарий, вспомнил о варианте фамилии, оканчивающейся в именительном падеже на "ёк" (например, Слынёк). Во всех прочих падежах (речь о мужской фамилии, т.к. женская не склоняется) вместо "ё" перед "к" появится "ь".
Внёс в макросы соответствующие дополнения.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

Склонение фамилий в программе, способы реализации

Решение

Решение

@PAnT0P 1492 / 587 / 107 Регистрация: 26.03.2012 Сообщений: 1,039
	18.05.2012, 14:14
	Не по теме: Успехов тебе, в борьбе с великим и могучим! ;) Подолью маленько масло в огонь, вот тебе пару реальных людей: Мария Сычь Володя Сушко Протестируй свой алгоритм. 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	18.05.2012, 19:34
	Yeaahhhh, одного моего знакомого зовут Никотин Спиртович Бухайло. Его тоже ни одна программа не склоняет. Это я к тому, что не заморачивайтесь с такими сочетаниями, всех все равно не перечислишь 0

@АлИв 8 / 8 / 0 Регистрация: 23.11.2011 Сообщений: 116
	05.08.2013, 17:31
	Целый день блуждаю по инету в поисках рабочего кода VBA или модуля для Access для склонения ФИО. Подскажите пожалуйста. Вот в этом обсуждении выдается ошибка, видимо ссылка на какую то библиотеку Application.Volatile True - это что? Кстати по Exell много материала. Можно ли его подогнать под Access. В склонении ФИО интересует родительный (кого), дательный (кому) и творительный (кем) падежи. Наши законодатели так напридумывали форм документов... Не претендую на всеобщее полное исследование и склонение "изысканных" и "редких" фамилий. Для этого можно предусмотреть ручное исправление. Ну хотя бы на 90% чтоб работала... P.S. Если кто не верит, посмотрите весь форум, ничего конкретного не найти! Все "посылают" куда-то, кто в делфи, кто в дебри... Помогите, люди добрые! 0

@The_Prist 2061 / 490 / 134 Регистрация: 13.11.2008 Сообщений: 935
	05.08.2013, 18:35
	Application.Volatile True Это только для Excel. Если планируете в другой программе использовать - удалите эту строку. Она отвечает за пересчет функции при любом изменении на листе. А в остальном - выше есть функция, которая вроде бы рабочая. Правда, переделывать её на склонения по трем падежам дело явно не быстрое. Когда-то где-то видел DLL, которая умеет склонять большую часть ФИО. Или DLL не вариант? 1