Un condón, en tu cabezón
Creo que es holandés :S pobre chico! no da mas de si! ;)
Creo que es holandés :S pobre chico! no da mas de si! ;)
Basado en http://www.forosdelweb.com/f15
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
decimales = (numero - Cdbl(Int(numero))) * 100′obtenemos si tenia decimales
If decimales <> 0 Then number2word = number2word & ” con ” & CStr(oneNumberToWord(Round
end function
Seguir leyendo…
Aeros Theme | Wallpaper by GgarfielD |Deambulando.com 2006-2008 | Top