Преобразовать число в слово - добавить «И» между - PullRequest
0 голосов
/ 05 июля 2018

В настоящее время я использую VBA ниже для преобразования чисел в слово. Все работает нормально, за исключением, например:

520 000,00, оно преобразуется в Пятьсот двадцать тысяч, но я хочу вместо этого получить пятьсот и Двадцать тысяч.

Где я могу добавить эти "и" в формуле ниже?

Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = "Thousand "
Place(3) = "Million "
Place(4) = "Billion "
Place(5) = "Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
    Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
              "00", 2))
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
    If Len(MyNumber) > 3 Then
        MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
        MyNumber = ""
    End If
    Count = Count + 1
Loop

Select Case Cents
    Case ""
        Cents = ""
    Case "One"
        Cents = " and One Cent"
          Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents
End Function

Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

1 Ответ

0 голосов
/ 05 июля 2018

Логика заключается в том, что если у вас есть цифра в сотнях больше нуля И если в десятках ИЛИ единицах есть ненулевая цифра, вам нужно добавить «и» после работы «сто».

Хорошо в ваших GetHundreds после кода:

' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If

вставить строку

If CInt(MyNumber) > 100 Then Result = Result & "and "

Посмотрите, работает ли это для вас.

РЕДАКТИРОВАТЬ: OOps слишком умный для моего же блага. Целым сотням не нужно "и", поэтому попробуйте следующее:

If CInt(MyNumber) Mod 100 <> 0 Then Result = Result & "and "
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...