Solved Convert Number to Arabic Words... (1 Viewer)

[Ashfaque]

Function SpellNumber1(ByVal MyNumber)
    Dim Pounds, Pence, 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(Nz(MyNumber, 0)))
 
    ' Position of decimal place 0 if none
    DecimalPlace = InStr(MyNumber, ".")
    'Convert Pence and set MyNumber to Pound amount
    If DecimalPlace > 0 Then
        Pence = 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 Pounds = Temp & Place(Count) & Pounds
          If Len(MyNumber) > 3 Then
             MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
 
    Select Case Pounds
        Case ""
            Pounds = "No Pounds"
        Case "One"
            Pounds = "One Pound"
        Case Else
            Pounds = Pounds & " Pounds"
    End Select
 
    Select Case Pence
        Case ""
            Pence = " and No Pence"
        Case "One"
            Pence = " and One Cent"
        Case Else
            Pence = " and " & Pence & " Pence"
    End Select
 
    SpellNumber1 = Pounds & Pence
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

HI,

I got good vba code to convert the numbers into word. It works fantastically with any of the currency. Just need to change their currency names in code.

It would also work for the Arabic language if we place following small conditional control in vba code because before and after decimal reading of value in Arabic is a bit different than any other language:

Means when tender value (numbers that appears after decimal) is greater than 20 then reading is reverse.

Example
If 125.19 or 125.20 will read One Hundred …….. & Ninteen…or Twenty….no issue
But if the value after decimal is greater 20 like
125.21 then it should read One Hundred ….. & ONE TWO (instead of TWO ONE)
The reverse reading of 2 digits after decimal in Arabic is applied for following figures only.
i.e. 21-99 except 30, 40, 50, 60, 70, 80 & 90

Similarly, last 2 digits in the whole integer value are also read in same reverse fashion.

Example
125.23
It should read in Arabic … One Hundred Fifty Two & Thirty Two
This is the only change we need in English code attached here. So that It will work with Arabic language. The attached Version is English Text. I can replace texts with Arabic later on place full code in forum to help other members/users.

Hopefully I explained properly...

Can anyone help here…

 

[Uncle Gizmo]

I noticed your question has yet to receive a reply, so I am posting to bump it up the list.

However I would say with something like this, you need to work out the logic yourself. It's nothing to do with VBA, the basic logic. This will come from working out what goes where.

With similar problems I have had to solve in the past, I usually start off in a spreadsheet.

In your case, you could start out with a spreadsheet with the numbers as numerals in one column, the numbers as English in another column and the numbers as whatever language you want in another column.

I think if you do it this way the logic of how the conversion works will gradually eek itself out of your experimentation.

The most important thing is to demonstrate that you are trying yourself, and not just relying on the help of the illustrious members here.

 

[Ashfaque]

Thanks Uncle Gismo,

I have done some coding on it to get the fractional part. But my problem is:

I need to get 2 digits AS IT IS after decimal. Let us say if the value is 564.23 so I need 23 in a variable or textbox then I can get 3 using Right function and 2 using left function.

This way my rest of work will be easy to get the value and convert in to Arabic text.. I have posted my query today in this regard.

 

[Pat Hartman]

The reverse reading of 2 digits after decimal in Arabic is applied for following figures only.
i.e. 21-99 except 30, 40, 50, 60, 70, 80 & 90

Wow! and I thought English had some strange rules. I don't remember this from my time in Kuwait but maybe it is just the words that are different so instead of saying twenty-one, you are saying one and twenty for 3.000,21 Archaic English sometimes uses that form. An example is the rhyme _ four and twenty blackbirds baked in a pie ...

 

[Ashfaque]

Pat,
Twenty-one will be off course Twenty-one in value but pronunciation is WAAHED WA ASHREEN means 1 + 20. This rules is applied in Persian, Urdu and Arabic language. Even in Hindi this rules applies like when we have to say Seventy-Three or any 2 digit value 20 onwards, it pronouces tender figure first and then 10s. Mean Seventy Three will be in URDU - Trihattar (3 first and 70 later) in HINDI (Trehattar...same) Or in ARABIC (Talatha Sabaoon mean 3 + 70...

Also this reverse reading will continue to all integer part on each 2 digit pair will ready in reverse order...thats why converting number to words is a bit difficult than an English. I reached almost with the help you genius members on this forum. Only some bugs I am testing and then I will place it for other users....Thanks again to all of you....

 

[Ashfaque]

Thanks to all the genius members here....Minty, gemma-the husky, Gasman Arnel and particulary The Doc Man.

I have uploaded full code of converting numbers to an Arabic Word at below link with all your support. But between the value 999,999,999.01 to 999,999,999.06, I am facing a problem. Possible soon we will find a solution and upload updated version of db.

Regards,
Ashfaque