Convertir números a letras ASP clásico

<%

  response.Write number2word(1000.101) 
output: mil con diez
function number2word(byval numero)’convierte un número a palabras

  Dim decimales
number2word=oneNumberToWord(Cdbl(Int(numero)))’lo pasamos a palabras
decimales = (numero – Cdbl(Int(numero))) * 100’obtenemos si tenia decimales

  If decimales <> 0 Then number2word = number2word & ” con ”   & CStr(oneNumberToWord(Round(decimales))) ‘si tiene decimales   convertimos los decimales a palabras
end function 
Function oneNumberToWord(pnumero)’un número simple sin decimales a palabras
Dim xcen(9) ‘centenas

  Dim xdec(9) ‘decenas

  Dim xuni(9) ‘unidades

  Dim xexc(6) ‘except

  Dim ceros(9)
Dim letras,i,c,j,xnumero, xnum,num,digito,numero_ent,entero,temp
xcen(2) = “dosc”

  xcen(3) = “tresc”

  xcen(4) = “cuatrosc”

  xcen(5) = “quin”

  xcen(6) = “seisc”

  xcen(7) = “setec”

  xcen(8) = “ochoc”

  xcen(9) = “novec”

  xdec(2) = “veinti”

  xdec(3) = “trei”

  xdec(4) = “cuare”

  xdec(5) = “cincue”

  xdec(6) = “sese”

  xdec(7) = “sete”

  xdec(8) = “oche”

  xdec(9) = “nove”

  xuni(1) = “uno”

  xuni(2) = “dos”

  xuni(3) = “tres”

  xuni(4) = “cuatro”

  xuni(5) = “cinco”

  xuni(6) = “seis”

  xuni(7) = “siete”

  xuni(8) = “ocho”

  xuni(9) = “nueve”

  xexc(1) = “diez”

  xexc(2) = “once”

  xexc(3) = “doce”

  xexc(4) = “trece”

  xexc(5) = “catorce”

  xexc(6) = “quince”

  ceros(1) = “0”

  ceros(2) = “00”

  ceros(3) = “000”

  ceros(4) = “0000”

  ceros(5) = “00000”

  ceros(6) = “000000”

  ceros(7) = “0000000”

  ceros(8) = “00000000”
c = 1

  i = 1

  j = 0
xnumero = cStr(pnumero)

  If Cdbl(LTrim(RTrim(pnumero))) < 999999999.99 Then

  numero_ent = Cdbl(Int(pnumero))

  If Len(numero_ent) < 9 Then

  numero_ent = ceros(9 – Len(numero_ent)) & numero_ent

  End If

  entero = Cdbl(Int(numero_ent))
Do While i < 8

  temp = 0

  num = Cdbl(Mid(numero_ent, i, 3))

  xnum = Mid(numero_ent, i, 3)

  digito = Cdbl(Mid(xnum, 1, 1))
‘/* analizo el numero entero de a 3 */

  If xnum = “000” Then

  j = 0

  Else

  j = 1

  If digito > 1 Then

  letras = letras & xcen(digito) & “ientos ”

  End If

  If Mid(xnum, 1, 1) = “1” And Mid(xnum, 2, 2) <> “00” Then

  letras = letras & “ciento ”

  ElseIf Mid(xnum, 1, 1) = “1” Then

  letras = letras & “cien ”

  End If
‘/* analisis de las decenas */

  digito = Cdbl(Mid(xnum, 2, 1))

  If digito > 2 And Mid(xnum, 3, 1) = “0” Then

  letras = letras & xdec(digito) & “nta ”

  temp = 1

  End If
If digito > 2 And Mid(xnum, 3, 1) <> “0” Then

  letras = letras & xdec(digito) & “nta y ”
End If
If digito = 2 And Mid(xnum, 3, 1) = “0” Then

  letras = letras & “veinte ”

  temp = 1

  ElseIf digito = 2 And Mid(xnum, 3, 1) <> “0” Then

  letras = letras & “veinti”
End If
If digito = 1 And Mid(xnum, 3, 1) >= “6” Then

  letras = letras & “dieci”

  ElseIf digito = 1 And Mid(xnum, 3, 1) < “6” Then

  letras = letras & xexc(Cdbl(Mid(xnum, 3, 1) + 1))

  temp = 1

  End If

  End If
if temp = 0 then

  ‘/* analisis del ultimo digito */

  digito = Cdbl(Mid(xnum, 3, 1))

  If ((c = 1) Or (c = 2)) And xnum = “001” Then

  ‘letras = letras & “un”

  Else

  If ((c = 1) Or (c = 2)) And xnum >= “020” And Mid(xnum, 3, 1) = “1” Then

  letras = letras & “un”

  Else

  If digito <> 0 Then

  letras = letras & xuni(digito)

  End If

  End If

  End If

  end if
If j = 1 And i = 1 And xnum = “001” And c = 1 Then

  letras = letras & ” millon ”

  ElseIf j = 1 And i = 1 And xnum <> “001” And c = 1 Then

  letras = letras & ” millones ”

  ElseIf j = 1 And i = 4 And c = 2 Then

  letras = letras & ” mil ”

  End If

  i = i + 3

  c = c + 1

  Loop

  If letras = “” Then

  letras = “cero ”

  End If
End If
oneNumberToWord = letras

  End Function
%>