Link to home
Start Free TrialLog in
Avatar of pdvsa
pdvsaFlag for United States of America

asked on

function

Experts,

I have copied a function from the internet but when I paste into Excel it gives me an error.
The debugger highlights "NUMBER"  not sure what is wrong here...
Thank you

Option Explicit

Function Convert Number To Spanish (ByVal MyNumber)
Dim Temp
Dim Dollars, Cents
Dim DecimalPlace, Count

ReDim Place(9) As String
Place(2) = " mil "
Place(3) = " millones "
Place(4) = " billones "
Place(5) = " trillones "

' Convert MyNumber to a string, trimming extra spaces.
MyNumber = Trim(Str(MyNumber))

' Find decimal place.
DecimalPlace = InStr(MyNumber, ".")

' If we find decimal place...
If DecimalPlace > 0 Then
' Convert cents
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Cents = ConvertTens(Temp)

' Strip off cents from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If

Count = 1
Do While MyNumber <> ""
' Convert last 3 digits of MyNumber to English dollars.
Temp = ConvertHundreds(Right(MyNumber, 3))
If Val(Right(MyNumber, 3)) = 1 Then
Select Case Count
Case 1: Dollars = "uno " & Dollars
Case 2: Dollars = "mil " & Dollars
Case 3: Dollars = "un millón " & Dollars
Case 4: Dollars = "un billón " & Dollars
Case 5: Dollars = "un trillón " & Dollars
Case Else: Dollars = Dollars
End Select
Else
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
End If

If Len(MyNumber) > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Dollars = Trim(Dollars)

' Clean up dollars.
If Dollars = "" Then Dollars = "cero"

Convert Number To Spanish = Dollars
End Function

Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String

' Exit if there is nothing to convert.
If Val(MyNumber) = 0 Then Exit Function

' Append leading zeros to number.
MyNumber = Right("000" & MyNumber, 3)

' Do we have a hundreds place digit to convert?
If Left(MyNumber, 1) <> "0" Then
Select Case Left(MyNumber, 1)
Case 1: Result = "ciento "
Case 2: Result = "doscientos "
Case 3: Result = "trescientos "
Case 4: Result = "cuatrocientos "
Case 5: Result = "quinientos "
Case 6: Result = "seiscientos "
Case 7: Result = "setecientos "
Case 8: Result = "ochocientos "
Case 9: Result = "novecientos "
Case Else
End Select
End If

' Do we have a tens place digit to convert?
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
' If not, then convert the ones place digit.
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If

' is the number exactly 100? If so, overwrite
If Left(MyNumber, 3) = "100" Then
Result = "cien "
End If

ConvertHundreds = Trim(Result)
End Function

Private Function ConvertTens(ByVal MyTens)
Dim Result As String

' Is value between 10 and 19?
If Val(Left(MyTens, 1)) = 1 Or Val(Left(MyTens, 1)) = 2 Then
Select Case Val(MyTens)
Case 10: Result = "diez"
Case 11: Result = "once"
Case 12: Result = "doce"
Case 13: Result = "trece"
Case 14: Result = "catorce"
Case 15: Result = "quince"
Case 16: Result = "dieciséis"
Case 17: Result = "diecisiete"
Case 18: Result = "dieciocho"
Case 19: Result = "diecinueve"
Case 20: Result = "veinte"
Case 21: Result = "veintiuno"
Case 22: Result = "veintidós"
Case 23: Result = "veintitrés"
Case 24: Result = "veinticuatro"
Case 25: Result = "veinticinco"
Case 26: Result = "veintiséis"
Case 27: Result = "veintisiete"
Case 28: Result = "veintiocho"
Case 29: Result = "veintinueve"
Case Else
End Select
Else
' .. otherwise it's between 20 and 99.
Select Case Val(Left(MyTens, 1))
Case 3: Result = "treinta "
Case 4: Result = "cuarenta "
Case 5: Result = "cincuenta "
Case 6: Result = "sesenta "
Case 7: Result = "setenta "
Case 8: Result = "ochenta "
Case 9: Result = "noventa "
Case Else
End Select

' Convert ones place digit.
Result = Result & IIf(Trim(ConvertDigit(Right(MyTens, 1))) = "", "", "y ") & ConvertDigit(Right(MyTens, 1))
End If

ConvertTens = Result
End Function

Private Function ConvertDigit(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: ConvertDigit = "uno"
Case 2: ConvertDigit = "dos"
Case 3: ConvertDigit = "tres"
Case 4: ConvertDigit = "cuatro"
Case 5: ConvertDigit = "cinco"
Case 6: ConvertDigit = "seis"
Case 7: ConvertDigit = "siete"
Case 8: ConvertDigit = "ocho"
Case 9: ConvertDigit = "nueve"
Case Else: ConvertDigit = ""
End Select
End Function
Avatar of pdvsa
pdvsa
Flag of United States of America image

ASKER

the "number" found here:
Function Convert Number To Spanish (ByVal MyNumber)
ASKER CERTIFIED SOLUTION
Avatar of StephenJR
StephenJR
Flag of United Kingdom of Great Britain and Northern Ireland image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
SOLUTION
Avatar of Steven Carnahan
Steven Carnahan
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of pdvsa

ASKER

OK it was the spaces.  But now I cant figure out how to run it.  

I thought it was a Macro but I inserted it as a Module and not sure how to run it.  

I have attached it so you can test it to see if I have done something incorrect.  


thank you
MODULE.xls
Just type this in any cell,

=Convert_Number_To_Spanish(A1)

You need to change the name by removing the spaces in the penultimate line as well.
Of course I don't know if the answer is right, but it does come up with one!
Avatar of pdvsa

ASKER

Thank you.  I had to convert the name elsewhere as pony said...