Como convertir números a letras

re: Como convertir números a letras

ZNoralba — Fri, 31 Jul 2009 16:33:42 GMT

Hola... me encántó esta función y me sirvió de mucho, solo que no sé como eliminar la omisión del "DE" en algunos casos, como UN MILLON "DE" BOLÍVARES"

Gracias... por favor si me pueden ayudar envienme la solución a mi correo electrónico

znoralba@hotmail.com

Gracias nuevamente

re: Como convertir números a letras

Richard — Tue, 21 Jul 2009 15:04:10 GMT

Hola amigo espero que me ayuden... tengo una problema kisiera el siguiente script que funciona en MSSQL SERVER 2000 a un script MySQL 5.x:

Create Function dbo.Num2Text(@valor money)

returns varchar(500)

begin

declare @textoValor varchar(500)

Select @textoValor = Case when @valor = 0 then 'CERO'

when @valor = 1 then 'UN'

when @valor = 2 then 'DOS'

when @valor = 3 then 'TRES'

when @valor = 4 then 'CUATRO'

when @valor = 5 then 'CINCO'

when @valor = 6 then 'SEIS'

when @valor = 7 then 'SIETE'

when @valor = 8 then 'OCHO'

when @valor = 9 then 'NUEVE'

when @valor = 10 then 'DIEZ'

when @valor = 11 then 'ONCE'

when @valor = 12 then 'DOCE'

when @valor = 13 then 'TRECE'

when @valor = 14 then 'CATORCE'

when @valor = 15 then 'QUINCE'

when @valor < 20 then 'DIECI' + dbo.Num2Text(@valor - 10)

when @valor = 20 then 'VEINTE'

when @valor < 30 then 'VEINTI' + dbo.Num2Text(@valor - 20)

when @valor = 30 then 'TREINTA'

when @valor = 40 then 'CUARENTA'

when @valor = 50 then 'CINCUENTA'

when @valor = 60 then 'SESENTA'

when @valor = 70 then 'SETENTA'

when @valor = 80 then 'OCHENTA'

when @valor = 90 then 'NOVENTA'

when @valor < 100 then dbo.Num2Text(floor(@valor / 10) * 10) + ' Y ' + dbo.Num2Text(@valor % 10)

when @valor = 100 then 'CIEN'

when @valor < 200 then 'CIENTO ' + dbo.Num2Text(@valor - 100)

when @valor in (200, 300, 400, 600, 800) then dbo.Num2Text(floor(@valor / 100)) + 'CIENTOS'

when @valor = 500 then 'QUINIENTOS'

when @valor = 700 then 'SETECIENTOS'

when @valor = 900 then 'NOVECIENTOS'

when @valor < 1000 then dbo.Num2Text(floor(@valor / 100) * 100) + ' ' + dbo.Num2Text(@valor % 100)

when @valor = 1000 then 'MIL'

when @valor < 2000 then 'MIL ' + dbo.Num2Text(@valor % 1000)

when @valor < 1000000 then case when @valor % 1000 > 0

then dbo.Num2Text(floor(@valor / 1000)) + ' MIL' + ' ' + dbo.Num2Text(@valor % 1000)

else dbo.Num2Text(floor(@valor / 1000)) + ' MIL'

end

when @valor = 1000000 then 'UN MILLON'

when @valor < 2000000 then 'UN MILLON ' + dbo.Num2Text(@valor % 1000000)

when @valor < 1000000000000.0 then case when (@valor - floor(@valor / 1000000) * 1000000) > 0

then dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES ' + dbo.Num2Text(@valor - floor(@valor / 1000000) * 1000000)

else dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES '

end

when @valor = 1000000000000.0 then 'UN BILLON'

when @valor < 2000000000000.0 then 'UN BILLON ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)

else case when (@valor - floor(@valor / 1000000000000.0) * 1000000000000.0) > 0

then dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES'

else dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES' + ' ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)

end

return(@textoValor)

end

re: Como convertir números a letras

Horacio — Sun, 12 Jul 2009 19:36:42 GMT

Estimados estoy tratando de implementar es fucnion en una base de Access que uso para facturar y no entiendo como hay que cargarla/hacerla funcionar. Si alguien me pudiese ayudar estare muy agradecido. Desde ya muchas gracias. Horacio

re: Como convertir números en asteriscos

Carol — Sun, 28 Jun 2009 23:28:09 GMT

hola necesito q me ayuden quiero convertir una contraseña en asteriscos

re: Como convertir números a letras

Walterizo — Sun, 28 Jun 2009 20:34:37 GMT

Me ahorro tiempo de programación, lo pase a MSSQL ya que lo necesitaba para la base de datos, el código sirve desde la versión 2000, les dejo el código convertido para una función

Create Function dbo.Num2Text(@valor money)

returns varchar(500)

begin

declare @textoValor varchar(500)

Select @textoValor = Case when @valor = 0 then 'CERO'

when @valor = 1 then 'UN'

when @valor = 2 then 'DOS'

when @valor = 3 then 'TRES'

when @valor = 4 then 'CUATRO'

when @valor = 5 then 'CINCO'

when @valor = 6 then 'SEIS'

when @valor = 7 then 'SIETE'

when @valor = 8 then 'OCHO'

when @valor = 9 then 'NUEVE'

when @valor = 10 then 'DIEZ'

when @valor = 11 then 'ONCE'

when @valor = 12 then 'DOCE'

when @valor = 13 then 'TRECE'

when @valor = 14 then 'CATORCE'

when @valor = 15 then 'QUINCE'

when @valor < 20 then 'DIECI' + dbo.Num2Text(@valor - 10)

when @valor = 20 then 'VEINTE'

when @valor < 30 then 'VEINTI' + dbo.Num2Text(@valor - 20)

when @valor = 30 then 'TREINTA'

when @valor = 40 then 'CUARENTA'

when @valor = 50 then 'CINCUENTA'

when @valor = 60 then 'SESENTA'

when @valor = 70 then 'SETENTA'

when @valor = 80 then 'OCHENTA'

when @valor = 90 then 'NOVENTA'

when @valor < 100 then dbo.Num2Text(floor(@valor / 10) * 10) + ' Y ' + dbo.Num2Text(@valor % 10)

when @valor = 100 then 'CIEN'

when @valor < 200 then 'CIENTO ' + dbo.Num2Text(@valor - 100)

when @valor in (200, 300, 400, 600, 800) then dbo.Num2Text(floor(@valor / 100)) + 'CIENTOS'

when @valor = 500 then 'QUINIENTOS'

when @valor = 700 then 'SETECIENTOS'

when @valor = 900 then 'NOVECIENTOS'

when @valor < 1000 then dbo.Num2Text(floor(@valor / 100) * 100) + ' ' + dbo.Num2Text(@valor % 100)

when @valor = 1000 then 'MIL'

when @valor < 2000 then 'MIL ' + dbo.Num2Text(@valor % 1000)

when @valor < 1000000 then case when @valor % 1000 > 0

then dbo.Num2Text(floor(@valor / 1000)) + ' MIL' + ' ' + dbo.Num2Text(@valor % 1000)

else dbo.Num2Text(floor(@valor / 1000)) + ' MIL'

end

when @valor = 1000000 then 'UN MILLON'

when @valor < 2000000 then 'UN MILLON ' + dbo.Num2Text(@valor % 1000000)

when @valor < 1000000000000.0 then case when (@valor - floor(@valor / 1000000) * 1000000) > 0

then dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES ' + dbo.Num2Text(@valor - floor(@valor / 1000000) * 1000000)

else dbo.Num2Text(floor(@valor / 1000000)) + ' MILLONES '

end

when @valor = 1000000000000.0 then 'UN BILLON'

when @valor < 2000000000000.0 then 'UN BILLON ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)

else case when (@valor - floor(@valor / 1000000000000.0) * 1000000000000.0) > 0

then dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES'

else dbo.Num2Text(floor(@valor / 1000000000000.0)) + ' BILLONES' + ' ' + dbo.Num2Text(@valor - floor(@valor / 1000000000000.0) * 1000000000000.0)

end

return(@textoValor)

end

re: Como convertir números a letras

Manuel — Wed, 24 Jun 2009 01:35:31 GMT

Excelente codigo de vino de maravillas. Solo estoy teniendo problemas con la parte de decimales, si alguien me da una mano se agradece!.

GRacias!!

re: Como convertir números a letras

Gustavo — Thu, 18 Jun 2009 17:36:32 GMT

Facil de usar, simplemente un exquisito codigo.

Gracias!!

re: Como convertir números a letras

adriana rosales — Thu, 02 Apr 2009 20:32:28 GMT

hola la verdad no entiendo mucho de esto he estado intentando hacer la operacion en macros pero no tengo ni idea de como

no tengo muchos conocimientos de esto asi que ojala y me puedas ayuda a resolver paso a paso para instalar todo lo anterior gracias

re: Como convertir números a letras

Azarel — Thu, 05 Mar 2009 03:42:42 GMT

Hola bueno estuve dandome de topoes al no poder usar sus codigos puesto que unos ponen un codigo y luego otro pone el mismo pero con diferentes variables y dicen que le agregaron no se que y ni si quiera ponen en donde ni como le hicieron miren yo hice esto, pruebenlo y si les sirve lo adecuan, para los centavos solo puse en lugar de un TextBox para los centavos, un MaskTextBox y lo adecue solo para que puedan introducir 2 numeros pueden usarlo con la misma funcion de los pesos obvio el masktextbox solo permite lo numeros que tu quieras asi me evite problemas:

Public Class Form1

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 Is < 20 : Num2Text = "DIECI" & Num2Text(value - 10)

Case 20 : Num2Text = "VEINTE"

Case Is < 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 Is < 100 : Num2Text = Num2Text(Int(value \ 10) * 10) & " Y " & Num2Text(value Mod 10)

Case 100 : Num2Text = "CIEN"

Case Is < 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 Is < 1000 : Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)

Case 1000 : Num2Text = "MIL"

Case Is < 2000 : Num2Text = "MIL " & Num2Text(value Mod 1000)

Case Is < 1000000 : Num2Text = Num2Text(Int(value \ 1000)) & " MIL"

If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)

Case 1000000 : Num2Text = "UN MILLON"

Case Is < 2000000 : Num2Text = "UN MILLON " & Num2Text(value Mod 1000000)

Case Is < 1000000000000.0# : Num2Text = Num2Text(Int(value / 1000000)) & " MILLONES "

If (value - Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000) * 1000000)

Case 1000000000000.0# : Num2Text = "UN BILLON"

Case Is < 2000000000000.0# : Num2Text = "UN BILLON " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)

Case Else : Num2Text = Num2Text(Int(value / 1000000000000.0#)) & " BILLONES"

If (value - Int(value / 1000000000000.0#) * 1000000000000.0#) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)

End Select

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim numero As Integer

Dim numero2 As Integer

If TextBox1.Text = "" Or TextBox2.Text = "" Then

MsgBox("Debe poner todos los datos, pesos y centavos", MsgBoxStyle.OkOnly, "Error")

Else

numero = TextBox1.Text

numero2 = TextBox2.Text

'Aqui la linea comentada pueden poner que los centavos aparezcan en numero & numero2 & , o que aparezcan en text solo cambien la linea = solo que en lugar de poner $ numero2 & "/100 M.N. " ponen Num2Texto(numero2) y listo, espero les sirva de algo =)

pesos.Text = Num2Text(numero) & " PESOS " & numero2 & "/100 M.N."

Me.Hide()

My.Forms.ImpresionHSBC.Show()

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Focus()

End Sub

End Class

re: Como convertir números a letras

jose miguel — Sat, 07 Feb 2009 05:16:29 GMT

Si, no se mucho de programacion, pero es que estoy haciendo unas facturas en exel, y no se como se hace para poner el codigo en exel para que en una casilla me salga en letras el TOTAL de la factura, GRACIAS POR LA AYUDA QUE ME PUEDAN BRINDAR

Excelente

Leonarave — Fri, 16 Jan 2009 04:03:28 GMT

Muy bueno el código, tenía tiempo buscándolo.

re: Como convertir números a letras

CXN — Thu, 04 Dec 2008 20:49:39 GMT

Hola nuevamente acabo de darme cuenta que es el problema anteriormente decrito por mi y es asunto es que cuando uso decimales, la funcion me redondea la cifra por ejemplo si uso 342.70 ya redondea a 342.00 y en el resultado se muestra y eso no lo necesito pq me cambia el resultado. alguien sabe como solucionar esto?

re: Como convertir números a letras

CXN — Thu, 04 Dec 2008 12:01:49 GMT

Hola a todos, que decir que estuve usando el codigo de conversion para access y cuando trato de usar este codigo como modulo los numero mayores de 5 al final ejemplo: 656 me pone "seiscientos cincuenta y seis" osea me pose un numero por encima y cuando trato de arreglarlo poniendo -1 al final esos numero si los corrige pero los menoes de 5 entonces le quita uno. No se si esto solo me pasa a mi y a otros trambien el caso es ke no se koco arreglarlo... alguien puede ayudar?

gracias de antemano.

re: Como convertir números a letras

Karina — Wed, 26 Nov 2008 01:08:53 GMT

Muchas gracias por compartir el código, funciona perfecto ;)

mejor pon otracosa

martin — Thu, 13 Nov 2008 16:26:56 GMT

esta muy mal lo de convertir los numeros romanos en letras

re: Como convertir números a letras

Andres — Wed, 12 Nov 2008 13:21:42 GMT

Muchas gracias men, esta formula me resulto de maravilla, he usado varios codigos, pero no me resultaba a la perfeccion.

Nuevamente gracias por tu aporte.

Andres

Santiago de Chile

Como convertir números a letras

K'781116 — Sat, 08 Nov 2008 06:01:34 GMT

Esta chido este algoritmo pero ya me dio un error (al menos a mi me aparece) traten de convertir este número:

123456789

A parte, el compilador me marca error ya que tengo Option Strict On el error esta en las instrucciones if, ya que se esta comparando un Integer con un Boolean, lo cual esto es incompatible con Option Strict On

re: Como convertir números a letras

Agreval — Wed, 29 Oct 2008 20:56:33 GMT

Muy buen codigo, perfecto, muchas gracias.

re: Como convertir números a letras

cesar guillen — Tue, 21 Oct 2008 18:18:47 GMT

Necesito saber como se llama cada cuadro de texto para elaborar el form1 y cuantos label voy a usar y cuantos textbox.

les dejo mi correo por si tienen la amabilidad de poder ayudarme .

Gracias .

C.guillen@hotmail.es

Option Explicit

Option Compare Text

'Declaradas a nivel de módulo

Dim unidad(0 To 9) As String

Dim decena(0 To 9) As String

Dim centena(0 To 10) As String

Dim deci(0 To 9) As String

Dim otros(0 To 15) As String

Private Sub InicializarArrays()

'Asignar los valores

unidad(1) = "UN"

unidad(2) = "DOS"

unidad(3) = "TRES"

unidad(4) = "CUATRO"

unidad(5) = "CINCO"

unidad(6) = "SEIS"

unidad(7) = "SIETE"

unidad(8) = "OCHO"

unidad(9) = "NUEVE"

decena(1) = "DIEZ"

decena(2) = "VEINTE"

decena(3) = "TREINTA"

decena(4) = "CUARENTA"

decena(5) = "CINCUENTA"

decena(6) = "SESENTA"

decena(7) = "SETENTA"

decena(8) = "OCENTA"

decena(9) = "NOVENTA"

centena(1) = "CIENTO"

centena(2) = "DOSCIENTOS"

centena(3) = "TRESCIENTOS"

centena(4) = "CUATROCIENTOS"

centena(5) = "QUINIENTOS"

centena(6) = "SEISCIENTOS"

centena(7) = "SETECIENTOS"

centena(8) = "OCHOCIENTOS"

centena(9) = "NOVECIENTOS"

centena(10) = "CIEN" 'Parche

deci(1) = "DIECI"

deci(2) = "VEINTI"

deci(3) = "TREINTA Y "

deci(4) = "CUARENTA Y "

deci(5) = "CINCUENTA Y "

deci(6) = "SESENTA Y "

deci(7) = "SETENTA Y "

deci(8) = "OCHENTA Y "

deci(9) = "NOVENTA Y "

otros(1) = "1"

otros(2) = "2"

otros(3) = "3"

otros(4) = "4"

otros(5) = "5"

otros(6) = "6"

otros(7) = "7"

otros(8) = "8"

otros(9) = "9"

otros(10) = "10"

otros(11) = "ONCE"

otros(12) = "DOCE"

otros(13) = "TRECE"

otros(14) = "CATORCE"

otros(15) = "QUINCE"

End Sub

Public Function Numero2Letra(ByVal strNum As String, Optional ByVal vLo, Optional ByVal vMoneda, Optional ByVal vCentimos) As String

'----------------------------------------------------------

' Convierte el número strNum en letras (28/Feb/91)

' Versión para Windows (25/Oct/96)

' Variables estáticas (15/May/97)

' Parche de "Esteve" <esteve@mur.hnet.es> (20/May/97)

' Revisión para decimales (10/Jul/97)

'----------------------------------------------------------

Dim i As Integer

Dim Lo As Integer

Dim iHayDecimal As Integer 'Posición del signo decimal

Dim sDecimal As String 'Signo decimal a usar

Dim sEntero As String

Dim sFraccion As String

Dim fFraccion As Single

Dim sNumero As String

Dim sMoneda As String

Dim sCentimos As String

'Si se especifica, se usarán

If Not IsMissing(vMoneda) Then

sMoneda = " " & Trim$(vMoneda) & " "

Else

sMoneda = " "

End If

If Not IsMissing(vCentimos) Then

sCentimos = " " & Trim$(vCentimos)

End If

'Averiguar el signo decimal

sNumero = Format$(25.5, "#.#")

If InStr(sNumero, ".") Then

sDecimal = "."

Else

sDecimal = ","

End If

'Si no se especifica el ancho...

If IsMissing(vLo) Then

Lo = 0

Else

Lo = vLo

End If

If Lo Then

sNumero = Space$(Lo)

Else

sNumero = ""

End If

'Quitar los espacios que haya por medio

i = InStr(strNum, " ")

If i = 0 Then Exit Do

strNum = Left$(strNum, i - 1) & Mid$(strNum, i + 1)

Loop

'Comprobar si tiene decimales

iHayDecimal = InStr(strNum, sDecimal)

If iHayDecimal Then

sEntero = Left$(strNum, iHayDecimal - 1)

sFraccion = Mid$(strNum, iHayDecimal + 1) & "00"

'obligar a que tenga dos cifras

sFraccion = Left$(sFraccion, 2)

fFraccion = Val(sFraccion)

'Si no hay decimales... no agregar nada...

If fFraccion < 1 Then

strNum = RTrim$(UnNumero(sEntero) & sMoneda & " EXACTOS")

If Lo Then

LSet sNumero = strNum

Else

sNumero = strNum

End If

Numero2Letra = sNumero

Exit Function

End If

sEntero = UnNumero(sEntero)

sFraccion = UnNumero(sFraccion)

strNum = sEntero & sMoneda & "BOLIVARES CON " & sFraccion & sCentimos & " CENTIMOS"

If Lo Then

LSet sNumero = RTrim$(strNum)

Else

sNumero = RTrim$(strNum)

End If

Numero2Letra = sNumero

Else

strNum = RTrim$(UnNumero(strNum) & sMoneda & " EXACTOS")

If Lo Then

LSet sNumero = strNum

Else

sNumero = strNum

End If

Numero2Letra = sNumero

End If

End Function

Private Function UnNumero(ByVal strNum As String) As String

'----------------------------------------------------------

'Esta es la rutina principal (10/Jul/97)

'Está separada para poder actuar con decimales

'----------------------------------------------------------

Dim lngA As Double

Dim Negativo As Boolean

Dim L As Integer

Dim Una As Boolean

Dim Millon As Boolean

Dim Millones As Boolean

Dim vez As Integer

Dim MaxVez As Integer

Dim k As Integer

Dim strQ As String

Dim strB As String

Dim strU As String

Dim strD As String

Dim strC As String

Dim iA As Integer

Dim strN() As String

'Si se amplia este valor... no se manipularán bien los números

Const cAncho = 12

Const cGrupos = cAncho \ 3

If unidad(1) <> "UNA" Then

InicializarArrays

End If

'Si se produce un error que se pare el mundo!!!

On Local Error GoTo 0

lngA = Abs(CDbl(strNum))

Negativo = (lngA <> CDbl(strNum))

strNum = LTrim$(RTrim$(Str$(lngA)))

L = Len(strNum)

If lngA < 1 Then

UnNumero = "CERO"

Exit Function

End If

Una = True

Millon = False

Millones = False

If L < 4 Then Una = False

If lngA > 999999 Then Millon = True

If lngA > 1999999 Then Millones = True

strB = ""

strQ = strNum

vez = 0

ReDim strN(1 To cGrupos)

strQ = Right$(String$(cAncho, "0") & strNum, cAncho)

For k = Len(strQ) To 1 Step -3

vez = vez + 1

strN(vez) = Mid$(strQ, k - 2, 3)

MaxVez = cGrupos

For k = cGrupos To 1 Step -1

If strN(k) = "000" Then

MaxVez = MaxVez - 1

Else

Exit For

End If

For vez = 1 To MaxVez

strU = "": strD = "": strC = ""

strNum = strN(vez)

L = Len(strNum)

k = Val(Right$(strNum, 2))

If Right$(strNum, 1) = "0" Then

k = k \ 10

strD = decena(k)

ElseIf k > 10 And k < 16 Then

k = Val(Mid$(strNum, L - 1, 2))

strD = otros(k)

Else

strU = unidad(Val(Right$(strNum, 1)))

If L - 1 > 0 Then

k = Val(Mid$(strNum, L - 1, 1))

strD = deci(k)

End If

'---Parche de Esteve

If L - 2 > 0 Then

k = Val(Mid$(strNum, L - 2, 1))

'Con esto funcionará bien el 100100, por ejemplo...

If k = 1 Then 'Parche

If Val(strNum) = 100 Then 'Parche

k = 10 'Parche

End If 'Parche

End If

strC = centena(k) & " "

End If

'------

If strU = "UNO" And Left$(strB, 4) = " MIL" Then strU = ""

strB = strC & strD & strU & " " & strB

If (vez = 1 Or vez = 3) Then

If strN(vez + 1) <> "000" Then strB = " MIL " & strB

End If

If vez = 2 And Millon Then

If Millones Then

strB = " MILLONES " & strB

Else

strB = "UN MILLON " & strB

End If

strB = Trim$(strB)

If Right$(strB, 3) = "UNO" Then strB = Left$(strB, Len(strB) - 1) & "A"

Do 'Quitar los espacios que haya por medio

iA = InStr(strB, " ")

If iA = 0 Then Exit Do

strB = Left$(strB, iA - 1) & Mid$(strB, iA + 1)

Loop

If Left$(strB, 6) = "UNO UN" Then strB = Mid$(strB, 5)

If Left$(strB, 7) = "UNO MIL" Then strB = Mid$(strB, 5)

If Right$(strB, 16) <> "MILLONES MIL UNO" Then

iA = InStr(strB, "MILLONES MIL UN")

If iA Then strB = Left$(strB, iA + 8) & Mid$(strB, iA + 13)

End If

If Right$(strB, 6) = "CIENTO" Then strB = Left$(strB, Len(strB) - 2)

If Negativo Then strB = "MENOS " & strB

UnNumero = Trim$(strB)

End Function

re: Como convertir números a letras

GONZALO — Tue, 14 Oct 2008 17:53:02 GMT

hola un no se como aplicar el codigo sin que redondehe la cantidad y usarlo con la leyenda de "Pesos 00/100 M.N."

tengo el texto31 en donde me aparece la cantidad en numero y el texto35 donde quiere poner la cantidad en Letra.

ojala que alguien me pueda ayudar.. este es mi correo gonzalo403@hotmail.com

gracias!