spellnumbers in Indonesian Currency

[gnulab]

Hi Guys,

I'm currently editing the spellnumber function that I got from support.microsoft.com so that it can accommodate Indonesian currency.

I've searched the forum and turned up with results that contain Rupees (Indian currency), pretty close, but not there.

Indonesian currency is pretty similar with the English dollar version except for this bit.

10, 100, 1,000 , 1,000,000
is a totally different word, unlike in English we simply use One <unit>
which in this case, UNIT will be Hundred, Thousand, Million.

I'll give an example so that this will present itself in a much clearer way.

791 - Tujuh Ratus Sembilan Puluh Satu
7 = tujuh
Hundred = Ratus
9 = sembilan
Ten = Puluh
1 = Satu

But the 1 changes name when it becomes more than 1
1 = satu
10 = sepuluh
100 = seratus
1000 = seribu

Basically it changes from 'Satu' to 'Sexxxx'

Now how do I add that bit to my current code?

</unit>

Option Explicit
'Main Function
Function Terbilang(ByVal MyNumber)
    Dim Dollars, Cents, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Ribu "
    Place(3) = " Juta "
    Place(4) = " Milyar "
    Place(5) = " Triliun "
    ' 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 Dollars
        Case ""
            Dollars = "No Dollars"
        Case "One"
            Dollars = "One Dollar"
         Case Else
            Dollars = Dollars & " Rupiah"
    End Select
    Select Case Cents
        Case ""
            Cents = ""
        Case "One"
            Cents = " and One Cent"
              Case Else
            Cents = " and " & Cents & " Cents"
    End Select
    Terbilang = Dollars & Cents
End Function
      
' Converts a number from 100-999 into text
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)) & " Ratus "
    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
      
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
    Dim Result As String
    Result = ""           ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
        Select Case Val(TensText)
            Case 10: Result = "Sepuluh"
            Case 11: Result = "Sebelas"
            Case 12: Result = "Dua Belas"
            Case 13: Result = "Tiga Belas"
            Case 14: Result = "Empat Belas"
            Case 15: Result = "Lima Belas"
            Case 16: Result = "Enam Belas"
            Case 17: Result = "Tujuh Belas"
            Case 18: Result = "Delapan Belas"
            Case 19: Result = "Sembilan Belas"
            Case Else
        End Select
    Else                                 ' If value between 20-99...
        Select Case Val(Left(TensText, 1))
            Case 2: Result = "Dua Puluh "
            Case 3: Result = "Tiga Puluh "
            Case 4: Result = "Empat Puluh "
            Case 5: Result = "Lima Puluh "
            Case 6: Result = "Enam Puluh "
            Case 7: Result = "Tujuh Puluh "
            Case 8: Result = "Delapan Puluh "
            Case 9: Result = "Sembilan Puluh "
            Case Else
        End Select
        Result = Result & GetDigit _
            (Right(TensText, 1))  ' Retrieve ones place.
    End If
    GetTens = Result
End Function
     
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 1: GetDigit = "Satu"
        Case 2: GetDigit = "Dua"
        Case 3: GetDigit = "Tiga"
        Case 4: GetDigit = "Empat"
        Case 5: GetDigit = "Lima"
        Case 6: GetDigit = "Enam"
        Case 7: GetDigit = "Tujuh"
        Case 8: GetDigit = "Delapan"
        Case 9: GetDigit = "Sembilan"
        Case Else: GetDigit = ""
    End Select
End Function

<unit>

Thanks in advance
Henry
</unit>

 

[gnulab]

Sorry guys, left this bit out

But the 1 changes name when it becomes more than 1 and it ends at one thousand. Notice that 10,000 is skipped since it is a combination of 10 + 1,000 (ten thousand or sepuluh ribu)

1 = satu
10 = sepuluh
100 = seratus
1,000 = seribu
10,000 = sepuluh ribu
100,000 = seratus ribu
1,000,000 = satu juta
10,000,000 = sepuluh juta
100,000,000 = seratus juta


Hope this makes sense.

Thanks once again.
Henry