Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe getallen naar woorden in Indiase roepies in Excel te converteren?

In dit artikel zal ik introduceren hoe u een lijst met getallen converteert naar woorden in Indiase roepies of Engelse dollar in Excel.

Converteer getallen naar woorden in Indiase roepies met VBA-code

Converteer getallen naar woorden in Engelse dollar met een geweldige functie


Converteer getallen naar woorden in Indiase roepies met VBA-code

De volgende VBA-code kan u helpen om de getallen om te zetten in woorden in roepies, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: converteer getallen naar woorden in roepies

Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
  RupeeFormat = ""
  Exit Function
End If
xNumStr = Trim(str(SNum))
If xNumStr = "" Then
  RupeeFormat = ""
  Exit Function
End If

xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
    RupeeFormat = "Digit excced Maximum limit"
    Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
    If (Len(xNumStr) - xDPInt) = 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
    ElseIf (Len(xNumStr) - xDPInt) > 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
    End If
        xNumStr = Trim(Left(xNumStr, xDPInt - 1))
    End If
    xF = 1
    Do While xNumStr <> ""
        If (xF >= 2) Then
            xTemp = Right(xNumStr, 2)
        Else
            If (Len(xNumStr) = 2) Then
                xTemp = Right(xNumStr, 2)
            ElseIf (Len(xNumStr) = 1) Then
                xTemp = Right(xNumStr, 1)
            Else
                xTemp = Right(xNumStr, 3)
            End If
        End If
        xStrTemp = ""
        If Val(xTemp) > 99 Then
            xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
            If Right(Trim(xStrTemp), 3) <> "Lac" Then
            xLp = xLp + 1
            End If
        ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
            xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
        ElseIf Val(xTemp) < 10 Then
            xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
        End If
        If xStrTemp <> "" Then
            xRStr = xStrTemp & xArrPlace(xF) & xRStr
        End If
        If xF = 2 Then
            If Len(xNumStr) = 1 Then
                xNumStr = ""
            Else
                xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            End If
       ElseIf xF = 3 Then
            If Len(xNumStr) >= 3 Then
                 xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            Else
                xNumStr = ""
            End If
        ElseIf xF = 4 Then
          xNumStr = ""
    Else
        If Len(xNumStr) <= 2 Then
        xNumStr = ""
    Else
        xNumStr = Left(xNumStr, Len(xNumStr) - 3)
        End If
    End If
        xF = xF + 1
Loop
    If xRStr = "" Then
       xRStr = "No Rupees"
    Else
       xRStr = " Rupees " & xRStr
    End If
    If xRStr_Paisas <> "" Then
       xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
    End If
    RupeeFormat = xRStr & xRStr_Paisas & " Only"
    End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
    RupeeFormat_GetH = ""
    Exit Function
Else
   xStrH = Right("000" & xStrH, 3)
   If Mid(xStrH, 1, 1) <> "0" Then
        If (xLp > 0) Then
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
        Else
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
        End If
    End If
    If Mid(xStrH, 2, 1) <> "0" Then
        xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
    Else
        xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
    End If
End If
    RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
    Dim xTArr1 As Variant
    Dim xTArr2 As Variant
    Dim xRStr As String
    xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Result = ""
    If Val(Left(xTStr, 1)) = 1 Then
        xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
    Else
        If Val(Left(xTStr, 1)) > 0 Then
            xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
        End If
        xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
    End If
      RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
    xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
    If Val(xDStr) > 0 Then
        RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
    Else
        RupeeFormat_GetD = ""
    End If
End Function 

3. Nadat u de code hebt ingevoegd, slaat u het codevenster op en sluit u het, gaat u terug naar het werkblad en voert u deze formule in: = RupeeFormat (A2) in een lege cel en sleep vervolgens de vulgreep naar beneden om deze formule op andere cellen toe te passen, alle getallen zijn in roepies gespeld, zie screenshot:


Converteer getallen naar woorden in Engelse dollar met een geweldige functie

Als u de getallen wilt converteren naar woorden in Engelse dollar, Kutools for Excel's Getallen naar woorden functie kan u helpen om deze taak snel en gemakkelijk op te lossen.

Tips:Om dit toe te passen Nummer naar woorden -functie, ten eerste moet u de Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer de lijst met getallen die u wilt converteren en klik op Kutools > Content > Getallen naar woorden, zie screenshots:

2. In de Getallen naar valutawoorden dialoogvenster, selecteer English optie van de Talen sectie en klik vervolgens op Ok knop, zijn de nummers in de selectie omgezet naar de Engelse valutawoorden, zie screenshot:

Klik om Kutools voor Excel en nu gratis uit te proberen!



  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...
kte tabblad 201905
  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    SANS · 2 months ago
    THANK YOU FOR THE CODE...
  • To post as a guest, your comment is unpublished.
    Gol Mahmud · 1 years ago
    One Lac Sixty Nine Thousand Eighty One and Forty Two Paise - Not converted properly.
    Also not converted the above figure when it round off.
  • To post as a guest, your comment is unpublished.
    biren · 1 years ago
    can't read more than 10 crore.

  • To post as a guest, your comment is unpublished.
    apal · 1 years ago
    Rupees Fourteen Thousand Eight Hundred , Seventy Five Only the last amount should have the word and
    example
    Rupees Fourteen Thousand Eight Hundred and Seventy Five Only
  • To post as a guest, your comment is unpublished.
    User · 1 years ago
    Excel crashes when the reference cell has no valve!
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, User,
      Thank you for your comment, the code in this article has been updated, please try again, thank you!
      • To post as a guest, your comment is unpublished.
        ipi99 · 1 years ago
        Dear Sir,

        Good day,

        I tested your VBA code but unfortunately its not working well on negative / minus values like -100 -10,000 / (100) (10,000).

        Sir, I'm using below code for last 1 years and today I discovered the same error which is found in your VBA code too.

        When I write minus -10,000 it shows on "Only Hundred Ten Thousand"
        When I write positive 10,000 it shows on "Only Ten Thousand" works fine

        Below example:

        (10,000.99) Only Hundred Ten Thousand & 99/100 Riyals
        10,000.99 Only Ten Thousand & 99/100 Riyals
        (10,000,000.99) Only Hundred Ten Million & 99/100 Riyals
        10,000,000.99 Only Ten Million & 99/100 Riyals
        (10,000,000,000.99) Only Hundred Ten Billion & 99/100 Riyals
        10,000,000,000.99 Only Ten Billion & 99/100 Riyals
        (10,000,000,000,000.90) Only Hundred Ten Trillion & 90/100 Riyals
        10,000,000,000,000.90 Only Ten Trillion & 90/100 Riyals

        Formula =spellbilling

        MY VBA CODE:

        'Main Function
        Function SpellBilling(ByVal MyNumber)
        Dim Riyals, Halalas, 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 Halalas and set MyNumber to Riyal amount.
        If DecimalPlace > 0 Then
        Halalas = 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 Riyals = Temp & Place(Count) & Riyals
        If Len(MyNumber) > 3 Then
        MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
        MyNumber = ""
        End If
        Count = Count + 1
        Loop
        Select Case Riyals
        Case ""
        Riyals = "No Riyal"
        Case "One"
        Riyals = "Only One Riyal"
        Case Else
        Riyals = "Only " & Riyals
        Riyals = Riyals & ""
        End Select
        Select Case Halalas
        Case ""
        Halalas = " & 00/00 Riyals"
        Case "One"
        Halalas = " & 01/100 Riyals"
        Case "Two"
        Halalas = " & 02/100 Riyals"
        Case "Three"
        Halalas = " & 03/100 Riyals"
        Case "Four"
        Halalas = " & 04/100 Riyals"
        Case "Five"
        Halalas = " & 05/100 Riyals"
        Case "Six"
        Halalas = " & 06/100 Riyals"
        Case "Seven"
        Halalas = " & 07/100 Riyals"
        Case "Eight"
        Halalas = " & 08/100 Riyals"
        Case "Nine"
        Halalas = " & 09/100 Riyals"
        Case "Ten"
        Halalas = " & 10/100 Riyals"
        Case "Eleven"
        Halalas = " & 11/100 Riyals"
        Case "Twelve"
        Halalas = " & 12/100 Riyals"
        Case "Thirteen"
        Halalas = " & 13/100 Riyals"
        Case "Fourteen"
        Halalas = " & 14/100 Riyals"
        Case "Fifteen"
        Halalas = " & 15/100 Riyals"
        Case "Sixteen"
        Halalas = " & 16/100 Riyals"
        Case "Seventeen"
        Halalas = " & 17/100 Riyals"
        Case "Eighteen"
        Halalas = " & 18/100 Riyals"
        Case "Nineteen"
        Halalas = " & 19/100 Riyals"
        Case "Twenty "
        Halalas = " & 20/100 Riyals"
        Case "Twenty One"
        Halalas = " & 21/100 Riyals"
        Case "Twenty Two"
        Halalas = " & 22/100 Riyals"
        Case "Twenty Three"
        Halalas = " & 23/100 Riyals"
        Case "Twenty Four"
        Halalas = " & 24/100 Riyals"
        Case "Twenty Five"
        Halalas = " & 25/100 Riyals"
        Case "Twenty Six"
        Halalas = " & 26/100 Riyals"
        Case "Twenty Seven"
        Halalas = " & 27/100 Riyals"
        Case "Twenty Eight"
        Halalas = " & 28/100 Riyals"
        Case "Twenty Nine"
        Halalas = " & 29/100 Riyals"
        Case "Thirty "
        Halalas = " & 30/100 Riyals"
        Case "Thirty One"
        Halalas = " & 31/100 Riyals"
        Case "Thirty Two"
        Halalas = " & 32/100 Riyals"
        Case "Thirty Three"
        Halalas = " & 33/100 Riyals"
        Case "Thirty Four"
        Halalas = " & 34/100 Riyals"
        Case "Thirty Five"
        Halalas = " & 35/100 Riyals"
        Case "Thirty Six"
        Halalas = " & 36/100 Riyals"
        Case "Thirty Seven"
        Halalas = " & 37/100 Riyals"
        Case "Thirty Eight"
        Halalas = " & 38/100 Riyals"
        Case "Thirty Nine"
        Halalas = " & 39/100 Riyals"
        Case "Forty "
        Halalas = " & 40/100 Riyals"
        Case "Forty One"
        Halalas = " & 41/100 Riyals"
        Case "Forty Two"
        Halalas = " & 42/100 Riyals"
        Case "Forty Three"
        Halalas = " & 43/100 Riyals"
        Case "Forty Four"
        Halalas = " & 44/100 Riyals"
        Case "Forty Five"
        Halalas = " & 45/100 Riyals"
        Case "Forty Six"
        Halalas = " & 46/100 Riyals"
        Case "Forty Seven"
        Halalas = " & 47/100 Riyals"
        Case "Forty Eight"
        Halalas = " & 48/100 Riyals"
        Case "Forty Nine"
        Halalas = " & 49/100 Riyals"
        Case "Fifty "
        Halalas = " & 50/100 Riyals"
        Case "Fifty One"
        Halalas = " & 51/100 Riyals"
        Case "Fifty Two"
        Halalas = " & 52/100 Riyals"
        Case "Fifty Three"
        Halalas = " & 53/100 Riyals"
        Case "Fifty Four"
        Halalas = " & 54/100 Riyals"
        Case "Fifty Five"
        Halalas = " & 55/100 Riyals"
        Case "Fifty Six"
        Halalas = " & 56/100 Riyals"
        Case "Fifty Seven"
        Halalas = " & 57/100 Riyals"
        Case "Fifty Eight"
        Halalas = " & 58/100 Riyals"
        Case "Fifty Nine"
        Halalas = " & 59/100 Riyals"
        Case "Sixty "
        Halalas = " & 60/100 Riyals"
        Case "Sixty One"
        Halalas = " & 61/100 Riyals"
        Case "Sixty Two"
        Halalas = " & 62/100 Riyals"
        Case "Sixty Three"
        Halalas = " & 63/100 Riyals"
        Case "Sixty Four"
        Halalas = " & 64/100 Riyals"
        Case "Sixty Five"
        Halalas = " & 65/100 Riyals"
        Case "Sixty Six"
        Halalas = " & 66/100 Riyals"
        Case "Sixty Seven"
        Halalas = " & 67/100 Riyals"
        Case "Sixty Eight"
        Halalas = " & 68/100 Riyals"
        Case "Sixty Nine"
        Halalas = " & 69/100 Riyals"
        Case "Seventy "
        Halalas = " & 70/100 Riyals"
        Case "Seventy One"
        Halalas = " & 71/100 Riyals"
        Case "Seventy Two"
        Halalas = " & 72/100 Riyals"
        Case "Seventy Three"
        Halalas = " & 73/100 Riyals"
        Case "Seventy Four"
        Halalas = " & 74/100 Riyals"
        Case "Seventy Five"
        Halalas = " & 75/100 Riyals"
        Case "Seventy Six"
        Halalas = " & 76/100 Riyals"
        Case "Seventy Seven"
        Halalas = " & 77/100 Riyals"
        Case "Seventy Eight"
        Halalas = " & 78/100 Riyals"
        Case "Seventy Nine"
        Halalas = " & 79/100 Riyals"
        Case "Eighty "
        Halalas = " & 80/100 Riyals"
        Case "Eighty One"
        Halalas = " & 81/100 Riyals"
        Case "Eighty Two"
        Halalas = " & 82/100 Riyals"
        Case "Eighty Three"
        Halalas = " & 83/100 Riyals"
        Case "Eighty Four"
        Halalas = " & 84/100 Riyals"
        Case "Eighty Five"
        Halalas = " & 85/100 Riyals"
        Case "Eighty Six"
        Halalas = " & 86/100 Riyals"
        Case "Eighty Seven"
        Halalas = " & 87/100 Riyals"
        Case "Eighty Eight"
        Halalas = " & 88/100 Riyals"
        Case "Eighty Nine"
        Halalas = " & 89/100 Riyals"
        Case "Ninety "
        Halalas = " & 90/100 Riyals"
        Case "Ninety One"
        Halalas = " & 91/100 Riyals"
        Case "Ninety Two"
        Halalas = " & 92/100 Riyals"
        Case "Ninety Three"
        Halalas = " & 93/100 Riyals"
        Case "Ninety Four"
        Halalas = " & 94/100 Riyals"
        Case "Ninety Five"
        Halalas = " & 95/100 Riyals"
        Case "Ninety Six"
        Halalas = " & 96/100 Riyals"
        Case "Ninety Seven"
        Halalas = " & 97/100 Riyals"
        Case "Ninety Eight"
        Halalas = " & 98/100 Riyals"
        Case "Ninety Nine"
        Halalas = " & 99/100 Riyals"


        Case Else
        Halalas = " & " & Halalas & " Halalas"
        End Select
        SpellBilling = Riyals & Halalas
        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)) & " 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

        ' 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 = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
        End Select
        Else ' If value between 20-99...
        Select Case Val(Left(TensText, 1))
        Case 2: Result = "Twenty "
        Case 3: Result = "Thirty "
        Case 4: Result = "Forty "
        Case 5: Result = "Fifty "
        Case 6: Result = "Sixty "
        Case 7: Result = "Seventy "
        Case 8: Result = "Eighty "
        Case 9: Result = "Ninety "
        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 = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
        End Select
        End Function
      • To post as a guest, your comment is unpublished.
        Raza · 1 years ago
        Dear Sir,

        Good day,

        I tested above formula its not working in hyphen minus values like -100 -10,000 or (100) (10,000)

        Sir, I'm using below code for last 1 years and today I discovered same error.

        When I write minus -10,000 or (10,000) it shows "Only Hundred Ten Thousand"
        When I write Positive 10,000 it works great "Only Ten Thousand"

        Below example:

        (10,000.99) Only Hundred Ten Thousand & 99/100 Riyals
        10,000.99 Only Ten Thousand & 99/100 Riyals
        (10,000,000.99) Only Hundred Ten Million & 99/100 Riyals
        10,000,000.99 Only Ten Million & 99/100 Riyals
        (10,000,000,000.99) Only Hundred Ten Billion & 99/100 Riyals
        10,000,000,000.99 Only Ten Billion & 99/100 Riyals
        (10,000,000,000,000.90) Only Hundred Ten Trillion & 90/100 Riyals
        10,000,000,000,000.90 Only Ten Trillion & 90/100 Riyals

        Formula =spellbilling

        MY VBA CODE:

        'Main Function
        Function SpellBilling(ByVal MyNumber)
        Dim Riyals, Halalas, 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 Halalas and set MyNumber to Riyal amount.
        If DecimalPlace > 0 Then
        Halalas = 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 Riyals = Temp & Place(Count) & Riyals
        If Len(MyNumber) > 3 Then
        MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
        MyNumber = ""
        End If
        Count = Count + 1
        Loop
        Select Case Riyals
        Case ""
        Riyals = "No Riyal"
        Case "One"
        Riyals = "Only One Riyal"
        Case Else
        Riyals = "Only " & Riyals
        Riyals = Riyals & ""
        End Select
        Select Case Halalas
        Case ""
        Halalas = " & 00/00 Riyals"
        Case "One"
        Halalas = " & 01/100 Riyals"
        Case "Two"
        Halalas = " & 02/100 Riyals"
        Case "Three"
        Halalas = " & 03/100 Riyals"
        Case "Four"
        Halalas = " & 04/100 Riyals"
        Case "Five"
        Halalas = " & 05/100 Riyals"
        Case "Six"
        Halalas = " & 06/100 Riyals"
        Case "Seven"
        Halalas = " & 07/100 Riyals"
        Case "Eight"
        Halalas = " & 08/100 Riyals"
        Case "Nine"
        Halalas = " & 09/100 Riyals"
        Case "Ten"
        Halalas = " & 10/100 Riyals"
        Case "Eleven"
        Halalas = " & 11/100 Riyals"
        Case "Twelve"
        Halalas = " & 12/100 Riyals"
        Case "Thirteen"
        Halalas = " & 13/100 Riyals"
        Case "Fourteen"
        Halalas = " & 14/100 Riyals"
        Case "Fifteen"
        Halalas = " & 15/100 Riyals"
        Case "Sixteen"
        Halalas = " & 16/100 Riyals"
        Case "Seventeen"
        Halalas = " & 17/100 Riyals"
        Case "Eighteen"
        Halalas = " & 18/100 Riyals"
        Case "Nineteen"
        Halalas = " & 19/100 Riyals"
        Case "Twenty "
        Halalas = " & 20/100 Riyals"
        Case "Twenty One"
        Halalas = " & 21/100 Riyals"
        Case "Twenty Two"
        Halalas = " & 22/100 Riyals"
        Case "Twenty Three"
        Halalas = " & 23/100 Riyals"
        Case "Twenty Four"
        Halalas = " & 24/100 Riyals"
        Case "Twenty Five"
        Halalas = " & 25/100 Riyals"
        Case "Twenty Six"
        Halalas = " & 26/100 Riyals"
        Case "Twenty Seven"
        Halalas = " & 27/100 Riyals"
        Case "Twenty Eight"
        Halalas = " & 28/100 Riyals"
        Case "Twenty Nine"
        Halalas = " & 29/100 Riyals"
        Case "Thirty "
        Halalas = " & 30/100 Riyals"
        Case "Thirty One"
        Halalas = " & 31/100 Riyals"
        Case "Thirty Two"
        Halalas = " & 32/100 Riyals"
        Case "Thirty Three"
        Halalas = " & 33/100 Riyals"
        Case "Thirty Four"
        Halalas = " & 34/100 Riyals"
        Case "Thirty Five"
        Halalas = " & 35/100 Riyals"
        Case "Thirty Six"
        Halalas = " & 36/100 Riyals"
        Case "Thirty Seven"
        Halalas = " & 37/100 Riyals"
        Case "Thirty Eight"
        Halalas = " & 38/100 Riyals"
        Case "Thirty Nine"
        Halalas = " & 39/100 Riyals"
        Case "Forty "
        Halalas = " & 40/100 Riyals"
        Case "Forty One"
        Halalas = " & 41/100 Riyals"
        Case "Forty Two"
        Halalas = " & 42/100 Riyals"
        Case "Forty Three"
        Halalas = " & 43/100 Riyals"
        Case "Forty Four"
        Halalas = " & 44/100 Riyals"
        Case "Forty Five"
        Halalas = " & 45/100 Riyals"
        Case "Forty Six"
        Halalas = " & 46/100 Riyals"
        Case "Forty Seven"
        Halalas = " & 47/100 Riyals"
        Case "Forty Eight"
        Halalas = " & 48/100 Riyals"
        Case "Forty Nine"
        Halalas = " & 49/100 Riyals"
        Case "Fifty "
        Halalas = " & 50/100 Riyals"
        Case "Fifty One"
        Halalas = " & 51/100 Riyals"
        Case "Fifty Two"
        Halalas = " & 52/100 Riyals"
        Case "Fifty Three"
        Halalas = " & 53/100 Riyals"
        Case "Fifty Four"
        Halalas = " & 54/100 Riyals"
        Case "Fifty Five"
        Halalas = " & 55/100 Riyals"
        Case "Fifty Six"
        Halalas = " & 56/100 Riyals"
        Case "Fifty Seven"
        Halalas = " & 57/100 Riyals"
        Case "Fifty Eight"
        Halalas = " & 58/100 Riyals"
        Case "Fifty Nine"
        Halalas = " & 59/100 Riyals"
        Case "Sixty "
        Halalas = " & 60/100 Riyals"
        Case "Sixty One"
        Halalas = " & 61/100 Riyals"
        Case "Sixty Two"
        Halalas = " & 62/100 Riyals"
        Case "Sixty Three"
        Halalas = " & 63/100 Riyals"
        Case "Sixty Four"
        Halalas = " & 64/100 Riyals"
        Case "Sixty Five"
        Halalas = " & 65/100 Riyals"
        Case "Sixty Six"
        Halalas = " & 66/100 Riyals"
        Case "Sixty Seven"
        Halalas = " & 67/100 Riyals"
        Case "Sixty Eight"
        Halalas = " & 68/100 Riyals"
        Case "Sixty Nine"
        Halalas = " & 69/100 Riyals"
        Case "Seventy "
        Halalas = " & 70/100 Riyals"
        Case "Seventy One"
        Halalas = " & 71/100 Riyals"
        Case "Seventy Two"
        Halalas = " & 72/100 Riyals"
        Case "Seventy Three"
        Halalas = " & 73/100 Riyals"
        Case "Seventy Four"
        Halalas = " & 74/100 Riyals"
        Case "Seventy Five"
        Halalas = " & 75/100 Riyals"
        Case "Seventy Six"
        Halalas = " & 76/100 Riyals"
        Case "Seventy Seven"
        Halalas = " & 77/100 Riyals"
        Case "Seventy Eight"
        Halalas = " & 78/100 Riyals"
        Case "Seventy Nine"
        Halalas = " & 79/100 Riyals"
        Case "Eighty "
        Halalas = " & 80/100 Riyals"
        Case "Eighty One"
        Halalas = " & 81/100 Riyals"
        Case "Eighty Two"
        Halalas = " & 82/100 Riyals"
        Case "Eighty Three"
        Halalas = " & 83/100 Riyals"
        Case "Eighty Four"
        Halalas = " & 84/100 Riyals"
        Case "Eighty Five"
        Halalas = " & 85/100 Riyals"
        Case "Eighty Six"
        Halalas = " & 86/100 Riyals"
        Case "Eighty Seven"
        Halalas = " & 87/100 Riyals"
        Case "Eighty Eight"
        Halalas = " & 88/100 Riyals"
        Case "Eighty Nine"
        Halalas = " & 89/100 Riyals"
        Case "Ninety "
        Halalas = " & 90/100 Riyals"
        Case "Ninety One"
        Halalas = " & 91/100 Riyals"
        Case "Ninety Two"
        Halalas = " & 92/100 Riyals"
        Case "Ninety Three"
        Halalas = " & 93/100 Riyals"
        Case "Ninety Four"
        Halalas = " & 94/100 Riyals"
        Case "Ninety Five"
        Halalas = " & 95/100 Riyals"
        Case "Ninety Six"
        Halalas = " & 96/100 Riyals"
        Case "Ninety Seven"
        Halalas = " & 97/100 Riyals"
        Case "Ninety Eight"
        Halalas = " & 98/100 Riyals"
        Case "Ninety Nine"
        Halalas = " & 99/100 Riyals"


        Case Else
        Halalas = " & " & Halalas & " Halalas"
        End Select
        SpellBilling = Riyals & Halalas
        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)) & " 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

        ' 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 = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
        End Select
        Else ' If value between 20-99...
        Select Case Val(Left(TensText, 1))
        Case 2: Result = "Twenty "
        Case 3: Result = "Thirty "
        Case 4: Result = "Forty "
        Case 5: Result = "Fifty "
        Case 6: Result = "Sixty "
        Case 7: Result = "Seventy "
        Case 8: Result = "Eighty "
        Case 9: Result = "Ninety "
        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 = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
        End Select
        End Function
        • To post as a guest, your comment is unpublished.
          KUMARESAN · 1 years ago
          Nothing to say! Extremlysuper