Числа словами от shady

[shady]

Вот модуль какой я использую давольно-таки давно для получения суммы прописью.
Использовать:

Код: Выделить всё

txt.text=SumToStr(1000)

[BV]

Я в код особо не вникал, но это бросилось в глаза...

Код: Выделить всё

        Select Case Value Mod 10
          Case 1
            Select Case Level
              Case 0
                SSTRING = s + "один"
              Case 1
                SSTRING = s + "одна тысяча"
              Case 2
                SSTRING = s + "один миллион"
              Case 3
                SSTRING = s + "один миллиард"
              Case 4
                SSTRING = s + "один триллион"
            End Select
            Exit Function
          Case 2
            Select Case Level
              Case 0
                SSTRING = s + "два"
              Case 1
                SSTRING = s + "две тысячи"
              Case 2
                SSTRING = s + "два миллиона"
              Case 3
                SSTRING = s + "два миллиарда"
              Case 4
                SSTRING = s + "два триллиона"
            End Select
            Exit Function
          Case 3
            Select Case Level
              Case 0
                SSTRING = s + "три"
              Case 1
                SSTRING = s + "три тысячи"
              Case 2
                SSTRING = s + "три миллиона"
              Case 3
                SSTRING = s + "три миллиарда"
              Case 4
                SSTRING = s + "три триллиона"
            End Select
            Exit Function
          Case 4
            Select Case Level
              Case 0
                SSTRING = s + "четыре"
              Case 1
                SSTRING = s + "четыре тысячи"
              Case 2
                SSTRING = s + "четыре миллиона"
              Case 3
                SSTRING = s + "четыре миллиарда"
              Case 4
                SSTRING = s + "четыре триллиона"
            End Select
            Exit Function
          Case 5
            s = s + "пять"
          Case 6
            s = s + "шесть"
          Case 7
            s = s + "семь"
          Case 8
            s = s + "восемь"
          Case 9
            s = s + "девять"
        End Select

Зачем от двух до четырех дополнительные Select Case?

[shady]

BV, я оптимизацией функций не занимался т.к. их производительность меня устраивала. Хотя есть там мелкие огрехи которые можно было бы поправить. Но я не понял, чем тебя смутили SELECTы?

[Viper]

BV, я оптимизацией функций не занимался т.к. их производительность меня устраивала. Хотя есть там мелкие огрехи которые можно было бы поправить. Но я не понял, чем тебя смутили SELECTы?

Мелкие? Там огрех на огрехе в немеренном количестве просто сидит и огрехом погоняет. Щаз просто лениво разбором кода заниматься.