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

    Case 9

            Десятки = "девяносто"

 End Select

End Function

Function Единицы(Разряд As Long, Род As String) As String

  Select Case Разряд

    Case 1

      If Род = "Мужской" Then 

                                 Единицы = "один"

                                          Else    Единицы = "одна"

      End If

    Case 2

      If Род = "Мужской" Then

                               Единицы = "два"

                                          Else    Единицы = "две"

      End If

    Case 3

       Единицы = "три"

    Case 4

       Единицы = "четыре"

    Case 5

       Единицы = "пять"

    Case 6

       Единицы = "шесть"

    Case 7

       Единицы = "семь"

    Case 8

       Единицы = "восемь"

    Case 9

       Единицы = "девять"

    Case 10

       Единицы = "десять"

    Case 11

       Единицы = "одиннадцать"

    Case 12

       Единицы = "двенадцать"

    Case 13

       Единицы = "тринадцать"

    Case 14

       Единицы = "четырнадцать"

    Case 15

       Единицы = "пятнадцать"

    Case 16

       Единицы = "шестнадцать"

    Case 17

       Единицы = "семнадцать"

    Case 18

       Единицы = "восемнадцать"

    Case 19

       Единицы = "девятнадцать"

  End Select

End Function

Function Сотни(Разряд As Long) As String

 Select Case Разряд

    Case 1

            Сотни = "сто"

    Case 2

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

    Case 3

            Сотни = "триста"

    Case 4

            Сотни = "четыреста"

    Case 5

            Сотни = "пятьсот"

    Case 6

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