# SolvedConvert Number to Arabic Words... (1 Viewer)

#### Ashfaque

##### Student
Code:
``````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

##### Nifty Access Guy
Staff member
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.

Last edited:

#### Ashfaque

##### Student
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

##### Super Moderator
Staff member
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

##### Student
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

##### Student
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

Last edited:

Replies
6
Views
164
Replies
11
Views
170
Replies
1
Views
214
Replies
7
Views
151
Replies
8
Views
264