Помогите облагородить код

[VBChild]

Доброго времени!

Подскажите, как подобное безобразие, можно привести к красивому коду? И чтобы не упираться в 100, 91 и 94.

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


Private Function GetCountText(ByVal Count As Integer) As String
    Select Case Count
        Case 0, 5 To 20, 25 To 30, 35 To 40, 45 To 50, 55 To 60, 65 To 70, 75 To 80, 85 To 90, 95 To 100
            GetCountText = "штук"
        Case 1, 21, 31, 41, 51, 61, 71, 81, 91
            GetCountText = "штука"
        Case 2 To 4, 22 To 24, 32 To 34, 42 To 44, 52 To 54, 62 To 64, 72 To 74, 82 To 84, 92 To 94
            GetCountText = "штуки"
        Case Else
            GetCountText = "штук"
    End Select
End Function


Я честно погуглил 'VBA сумма прописью', но очень мало оттуда понял. Салага пока.

[Хакер]

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

Private Function GetCountText(ByVal Count As Integer) As String
    Count = Abs(Count)
    If Count > 19 Then Count = Count Mod 10
    Select Case Count
        Case 0, 5 To 19
            GetCountText = "штук"
        Case 1
            GetCountText = "штука"
        Case 2 To 4
            GetCountText = "штуки"
    End Select
End Function

Честно говоря, глядя на тип As Integer, я не понимаю смысла упираться в 32767.

[Хакер]

но очень мало оттуда понял. Салага пока.

Тогда видимо нужно разъяснение. Подход такой: если число на входе больше, чем 19, то вместо числа берётся остаток от деления первоначального числа на 10.

То есть из числа «пять тысяч сто тридцать семь» делается просто «семь». И тогда в Select Case-блоке нужно предусмотреть только отдельные случаи в пределах 10 возможных вариантов последней цифры, плюс 9 исключений для «надцать».

[VBChild]

Хакер, принято! На корочку записано. Abs исключу только. У меня сканирование штрих-кодов.
Огромное спасибо!

[VBChild]

Честно говоря, глядя на тип As Integer, я не понимаю смысла упираться в 32767.

Ну, потому что больше 10, там всё равно не бывает. Это софт для точки продаж.

[Хакер]

Честно говоря, глядя на тип As Integer, я не понимаю смысла упираться в 32767.

Ну, потому что больше 10, там всё равно не бывает. Это софт для точки продаж.

Выигрыша от использования Integer толком нет никакого. Только микроскопический вред производительности.

Не вижу смысла исключать Abs. Оно заставляет функцию адекватно реагировать на отрицательные числа (а это может понадобиться при пробивании возвратов на торговой точке), а вреда в плане производительности не наносит, если только функцию не собираются вызывать миллионы раз в секунду.