Deambulando

Creo que es holandés :S pobre chico! no da mas de si! ;)

Basado en http://www.forosdelweb.com/f15/funcion-para-convertir-numeros-letras-387197/

Modifico la función para que muestre también con palabras los decimales ;), y alguna optimización.

<%
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
Seguir leyendo…