Solved

# function

Posted on 2011-02-10

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