ASP - COMO PROGRAMAR LA CONVERSION DE NUMEROS A LETRAS E

EJM.
NUMERO: 45865
LA CONVERSIÓN ES:
*CUARENTA CINCO MIL OCHOCIENTOS SESENTA CINCO PESOS*

Dim cadconvert As String
Function Decena(dec As Double) As String
Dim num, num2 As Integer
Dim cad, cad2, aux As String
Dim DyV As Boolean
DyV = False
cad = ""
cad2 = ""
aux = Trim(Str(dec))
cad = Mid(aux, 1, 1)
cad2 = Mid(aux, 2, 1)
num = Val(cad)
num2 = Val(cad2)
If dec >= 20 Then
Select Case num
Case 2
cad = "veinte"
Case 3
cad = "treinta"
Case 4
cad = "cuarenta"
Case 5
cad = "cincuenta"
Case 6
cad = "sesenta"
Case 7
cad = "setenta"
Case 8
cad = "ochenta"
Case 9
cad = "noventa"
End Select
Else
DyV = True
Select Case dec
Case 1
cad = "uno"
Case 2
cad = "dos"
Case 3
cad = "tres"
Case 4
cad = "cuatro"
Case 5
cad = "cinco"
Case 6
cad = "seis"
Case 7
cad = "siete"
Case 8
cad = "ocho"
Case 9
cad = "nueve"
Case 10
cad = "diez"
Case 11
cad = "once"
Case 12
cad = "doce"
Case 13
cad = "trece"
Case 14
cad = "catorce"
Case 15
cad = "quince"
Case 16
cad = "dieciseis"
Case 17