Ознакомление со средой MS Access, создание таблиц и запросов, формы, отчеты и макросы, страница 22

    Case 7

            Сотни = "семьсот"

    Case 8

            Сотни = "восемьсот"

    Case 9

            Сотни = "девятьсот"

 End Select

End Function

Function Тысячи(Разряд As Long) As String

   If Разряд = 1 Then

                  Тысячи = "тысяча"

        Else

         If Разряд > 1 And Разряд < 5 Then

                  Тысячи = "тысячи"

                Else

                  Тысячи = "тысяч"

         End If

   End If

End Function

Function Гривны(Разряд As Long) As String

  If Разряд = 1 Then 

           Гривны = "гривна"

        Else

         If Разряд > 1 And Разряд < 5 Then 

                                          Гривны = "гривны"

                                                            Else    Гривны = "гривен"

         End If

   End If

End Function

Function Суммапрописью(Общаясумма As Long) As String

Dim Группа As Long, Разряд As Long, Длина As Integer

Dim Пропись As String

    Сумма = Общаясумма

    Остаток = Сумма

Группа = Остаток \ 1000

If Группа <> 0 Then

    Разряд = Группа \ 100

    Пропись = Пропись & " " & Сотни(Разряд)

    Остаток = Остаток - Разряд * 100 * 1000

    Группа = Группа - Разряд * 100

    If Группа > 19 Then

        Разряд = Группа \ 10

        Пропись = Пропись & " " & Десятки(Разряд)

        Остаток = Остаток - Разряд * 10 * 1000

        Группа = Группа - Разряд * 10

    End If

   Разряд = Группа

   Пропись = Пропись & " " & Единицы(Разряд, "Женский")

   Остаток = Остаток - Разряд * 1000

   Пропись = Пропись & " " & Тысячи(Разряд)

End If

Группа = Остаток

If Группа <> 0 Then

    Разряд = Группа \ 100

    Пропись = Пропись & " " & Сотни(Разряд)

    Остаток = Остаток - Разряд * 100