Buscar : en
Por :

Conversion de numeros a su literal

Última respuesta el 8 oct 2009, 16:55:53 eduardo, el 5 oct 2009, 16:35:37 
 Señalar este mensaje a los moderadores

Hola, estoy programando en .net un sistema de ventas y estoy en la parte de facturación, y necesito sacar los valores de mis montos totales de la factura en su literal.

ejemplo: 356 = trecientos cincuenta y seis

hasta n

gracias por su ayuda

Configuración: Windows XP Internet Explorer 7.0

Mejores respuestas para « conversion de numeros a su literal » en :
Convertir fecha a un numero entero Ver
[Word] Convertir un número en letras Ver En Word es posible convertir un número en letras conservando la ortografía (por ejemplo el acento,…), para ello: Crea un campo con CTRL-F9 En la pantalla aparecerá {} Pon dentro del campo el número precedido del signo “=” y luego del número...
Descargar Power Video Converter Ver
Convertir un color en valor numérico VerEsta macro permite obtener el código de un color: Sub distri_color() Dim i For i = 1 To 12 Worksheets(1).Range("C" & i).Value = Worksheets(1).Range("B" & i).Interior.Color Next i End Sub Reemplaza el 10 por el número de líneas que...
PHP – Código antispam con números y letras (CAPTCHA) VerEn numerosos sitios Web, entre ellos Kioskea, habrás podido observar que los formularios vienen acompañados de un código CAPTCHA, el que tiene que ser ingresado en una casilla. Este sistema evita el envío abusivo de spam de manera automatizada por...
Como ver el historial de las conversaciones del MSN VerEn este artículo veremos dos formas de ver el historial de nuestras conversaciones del MSN: Si no tienes instalado el Messenger Plus! Live Si tienes instalado el Messenger Plus! Live Si no tienes instalado el Messenger Plus! Live Para...
Descargar Total Audio Converter VerEsta completisima herramienta de conversion de ficheros de audio te ayudara a realizar de una manera muy simple que cambies de un formato de uno o varios archivos. Cuenta con herramientas de extraccion de pistas de audio a partir de un CD y tambien...
Descargar Total Video Converter VerTotal Video Converter es un programa de conversión de videos que convierte archivos de video a los formatos más populares. Convierte casi todos los archivos de video a 3gp, mp4, psp, iPod, iPhone, swf, flv, DVD, VCD, Xbox360, PS3... Este conversor...
Descargar Free PDF to Word Doc Converter VerFree PDF to Word Doc Converter es un programa que convierte documentos PDF a documentos Word (.doc) y Windows WordPad. Nos permite elegir el rango de páginas a convertir, inclusión de imágenes y formas si lo deseamos, elegir la fuente. El programa...
Representación de números reales y números enteros VerRepresentación de un número en un ordenador Representar (o codificar) un número significa expresarlo en forma binaria. La representación de números en un ordenador es necesaria para que éste pueda almacenarlos y manipularlos. Sin embargo, el problema...
Cifrado de sustitución VerCifrado de sustitución El cifrado de sustitución consiste en reemplazar una o más entidades (generalmente letras) de un mensaje por una o más entidades diferentes. Existen varios tipos de criptosistemas de sustitución: La sustitución monoalfabética...
Notación hexadecimal VerNotación hexadecimal Como los números binarios eran cada vez más largos, se tuvo que introducir una nueva base: numeración hexadecimal. El sistema numérico hexadecimal utiliza la base 16, de manera que después de los primeros 10 dígitos vienen las...
Haga su pregunta Responder

1

Samasa, el 5 oct 2009, 16:45:42

Tenes que usar varias cosas avanzadas

por ejemplo el MOD y el DIV

y tenes que hacerlo de modo a que saque los diferentes numeros por separados

   
Responder a Samasa

2

Elinv, el 6 oct 2009, 14:42:18
  • +3

Hola Eduardo:

Esta función te va a ayudar mucho, puedes corregirla a tugusto, inclusive te envío los dos formatos para que te muestre en mayúsculas el resultado o con la primera letra capitalizada.
------------------------------------------------------------­--------------------------
Public Function Num2Text(ByVal value As Double) As String
Select Case value
Case 0: Num2Text = "CERO"
Case 1: Num2Text = "UN"
Case 2: Num2Text = "DOS"
Case 3: Num2Text = "TRES"
Case 4: Num2Text = "CUATRO"
Case 5: Num2Text = "CINCO"
Case 6: Num2Text = "SEIS"
Case 7: Num2Text = "SIETE"
Case 8: Num2Text = "OCHO"
Case 9: Num2Text = "NUEVE"
Case 10: Num2Text = "DIEZ"
Case 11: Num2Text = "ONCE"
Case 12: Num2Text = "DOCE"
Case 13: Num2Text = "TRECE"
Case 14: Num2Text = "CATORCE"
Case 15: Num2Text = "QUINCE"
Case 16 To 20: Num2Text = "DIECI" & Num2Text(value - 10)
Case 20: Num2Text = "VEINTE"
Case 21 To 30: Num2Text = "VEINTI" & Num2Text(value - 20)
Case 30: Num2Text = "TREINTA"
Case 40: Num2Text = "CUARENTA"
Case 50: Num2Text = "CINCUENTA"
Case 60: Num2Text = "SESENTA"
Case 70: Num2Text = "SETENTA"
Case 80: Num2Text = "OCHENTA"
Case 90: Num2Text = "NOVENTA"
Case 91 To 100: Num2Text = Num2Text(Int(value \ 10) * 10) & " Y " & Num2Text(value Mod 10)
Case 100: Num2Text = "CIEN"
Case 101 To 200: Num2Text = "CIENTO " & Num2Text(value - 100)
Case 200, 300, 400, 600, 800: Num2Text = Num2Text(Int(value \ 100)) & "CIENTOS"
Case 500: Num2Text = "QUINIENTOS"
Case 700: Num2Text = "SETECIENTOS"
Case 900: Num2Text = "NOVECIENTOS"
Case 901 To 1000: Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)
Case 1000: Num2Text = "MIL"
Case 1001 To 2000: Num2Text = "MIL " & Num2Text(value Mod 1000)
Case 2001 To 1000000: Num2Text = Num2Text(Int(value \ 1000)) & " MIL"
If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)
Case 1000000: Num2Text = "UN MILLON"
Case 1000001 To 2000000: Num2Text = "UN MILLON " & Num2Text(value Mod 1000000)
Case 2000001 To 1000000000000#: Num2Text = Num2Text(Int(value / 1000000)) & " MILLONES "
If (value - Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000) * 1000000)
Case 1000000000000#: Num2Text = "UN BILLON"
Case 1000000000001# To 2000000000000#: Num2Text = "UN BILLON " & Num2Text(value - Int(value / 1000000000000#) * 1000000000000#)
Case Else: Num2Text = Num2Text(Int(value / 1000000000000#)) & " BILLONES"
If (value - Int(value / 1000000000000#) * 1000000000000#) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000000000#) * 1000000000000#)
End Select

End Function

Private Sub Form_Load()
MsgBox Num2Text(10001)
MsgBox StrConv(Num2Text(10001), vbProperCase)
End Sub
--------------------------------------------------------------------------

Atentamente.


Elinv.


________________________________________
Estas son nuestras webs
________________________________________
www.bragadomas.com.ar
www.bragadomas.com
http://bragadohoy.blogspot.com/
________________________________________
Estos son nuestros mails.
________________________________________
info@bragadomas.com
________________________________________
Este es nuestro foro
________________________________________
http://www.bragadomas.com/forodeprogramacion/index.php
________________________________________

   
Responder a Elinv

3

 Samasa, el 8 oct 2009, 16:55:53
  • +1

Con el Mod y Div analizas centenas, decenas y unidades por separado

por ejemplo
un numero de 3 cifras

NUMERO MOD 100 va a sacarlas centenas

(NUMERO mod 10)DIV 10 va a sacar las decenas

NUMERO DIV 10 va a sacar las unidades

   
Responder a Samasa
Haga su pregunta Responder
Necesitan su ayuda