Como cambiar un numero a texto en español?

Hola lolopeso,

Revisa este enlace: http://tinyurl.com/dfpyc

Saludos,
KL


"lolopeso" wrote in message
news:

Para efectos fiscales hoy en dia en las facturas es necesario poner la
cantidad cobrada en letras, como lo hago???

Hola KL

Muchisimas gracias por la informacion, ya tengo el zip de el guille, pero
como lo aplico?¡¡
no reconosco las extenciones son los siguientes:

cNum2Text.cls
tcNum2Text.vbp
frmotraspruebas.frm
tcNum2text.vbw

sinceramente no se donde ponerlo, espero me puedas apoyar en esto tambien,
de antemeno te agradesco muchisimo.



"KL" escribió:

Hola lolopeso,

Revisa este enlace: http://tinyurl.com/dfpyc

Saludos,
KL


"lolopeso" wrote in message
news:
> Para efectos fiscales hoy en dia en las facturas es necesario poner la
> cantidad cobrada en letras, como lo hago???

Hola lolopeso,

Solo vas a necesitar el archivo cNum2Text.cls de los cuatro que vienen
"zipeados".
1) Extre el archivo cNum2Text.cls a tu disco duro y cambiale la extension de
".cls" a ".txt"
2) Abre el cNum2Text.txt y copia su contenido a partir de la linea
'- de separacion (linea 14) para abajo
3) Abre tu archivo Excel.
5) Haz clic-derecho sobre el nombre de cualquier hoja en una de las pestañas
de la parte de abajo de la ventana de Excel.
6) Elige la opcion Ver Codigo para abrir el Editor VBA.
7) Una vez en el Editor VBA, ve al menu Insertar>Modulo
8) En la ventana mas grande a la derecha pega el codigo que has copiado
9) Pulsa Alt+F11 para volver a la hoja
10) si tienes tu numero de prueba en la celda [A1], entonces introduce las
siguientes formulas en las celdas correspondientes:

iguiendo este patron:
=Numero2Letra(Numero,MaxLongitud,NumDecimales,NomMoneda,NomCentimos,GenMoneda,GenCentimos)

[B1] =Numero2Letra(A1)
[B2] =Numero2Letra(B5,,3,"peso","centavo",1,1)
[B3] =Numero2Letra(B5,,3,"peseta")

los valores por defecto son:

MaxLongitud=0 (sin limite)
NumDecimales=2
NomMoneda=""
NomCentimos=""
GenMoneda=0 (femenino)
GenCentimos=0 (femenino)

Los nombres de la moneda y los centimos se tienen que introducir en singular
El genero como 0 o 1 (femenino o masculino). El 0 puede simplemente
omitirse.

Saludos,
KL


"lolopeso" wrote in message
news:

Hola KL

Muchisimas gracias por la informacion, ya tengo el zip de el guille, pero
como lo aplico???
no reconosco las extenciones son los siguientes:

cNum2Text.cls
tcNum2Text.vbp
frmotraspruebas.frm
tcNum2text.vbw

sinceramente no se donde ponerlo, espero me puedas apoyar en esto tambien,
de antemeno te agradesco muchisimo.



"KL" escribio:

Hola lolopeso,

Revisa este enlace: http://tinyurl.com/dfpyc

Saludos,
KL


"lolopeso" wrote in message
news:
> Para efectos fiscales hoy en dia en las facturas es necesario poner la
> cantidad cobrada en letras, como lo hago???

hola, chicos !

solo comentarios... -un tanto- al margen [y espero no sean 'tomados a mal'] :))
saludos,
hector.
=1) [solo] me llamo 'la atencion' el que KL hubiera 're/castellanizado' los 'nombres' de los argumentos de la funcion 'original'
de -> Numero2Letra(Numero,Lo,NumDecimales,sMoneda,sCentimos,SexoMoneda,SexoCentimos)
a -> Numero2Letra(Numero,MaxLongitud,NumDecimales,NomMoneda,NomCentimos,GenMoneda,GenCentimos)
[por cierto... me parece que los nombres 'originales' son mas... 'sexis'] :DD
2) 'supuse' que se habian agregado algunas modificaciones o correcciones a la 'ultima' version que -yo- conocia [pero no] :-(
3) algunos 'cuidados' que [considero] se deben 'mantener presentes' con relacion al uso y 'combinacion' de los argumentos...
a) Lo [o MaxLongitud -como acertadamente 'renombra' KL]...
-> no encuetro su 'utilidad'... si se establece a >0... TRUNCA 'la salida textual' del numero convertido -?-
b) NumDecimales...
-> 'acepta' HASTA 12 posiciones decimales... pero la 'traduccion' de las fracciones... [p.e.]
[estoy seguro que si 'cobrarian', pero...] -> pagarias seiscientos cincuenta mil millones de 'centavos' [libras esterlinas] ???
c) combinar 'con criterio' ->y/o revisar la 'concordancia'<- entre...
a) sMoneda <-> SexoMoneda [o... NomMoneda <-> GenMoneda]
b) sCentimos <-> SexoCentimos [ o... NomCentimos <-> GenCentimos]
-> segun como 'quede' la cobinacion ['generos' versus 'sexos'] podrias obtener una 'traduccion' del tipo...
doscientOS pesetAS o... doscientAS pesOS :))
4) cuando se trata de cifras en 'millones enteros' [un millon, dos millones, mil millones, etc.] 6 ceros NO 'significativos'...
'omite' la palabra 'DE' un millon DE... dos millones DE... mil millones DE... :-(
5) si se pretende utilizar con XL'97... no hay 'soporte' para el 'enumerador' de los 'sexos'
[en el codigo hay una declaracion 'de tipo': Public Enum Sexo, y esta 'asignado' a argumentos y variables de la funcion]

Mil Gracias KL!!!!

Me fue de mucha utilidad tu ayuda, te lo agradesco mucho...

Hector gracias por enriquecer mas la informacion...

"Héctor Miguel" escribió:

hola, chicos !

solo comentarios... -un tanto- al margen [y espero no sean 'tomados a mal'] :))
saludos,
hector.
=> 1) [solo] me llamo 'la atencion' el que KL hubiera 're/castellanizado' los 'nombres' de los argumentos de la funcion 'original'
de -> Numero2Letra(Numero,Lo,NumDecimales,sMoneda,sCentimos,SexoMoneda,SexoCentimos)
a -> Numero2Letra(Numero,MaxLongitud,NumDecimales,NomMoneda,NomCentimos,GenMoneda,GenCentimos)
[por cierto... me parece que los nombres 'originales' son mas... 'sexis'] :DD
2) 'supuse' que se habian agregado algunas modificaciones o correcciones a la 'ultima' version que -yo- conocia [pero no] :-(
3) algunos 'cuidados' que [considero] se deben 'mantener presentes' con relacion al uso y 'combinacion' de los argumentos...
a) Lo [o MaxLongitud -como acertadamente 'renombra' KL]...
-> no encuetro su 'utilidad'... si se establece a >0... TRUNCA 'la salida textual' del numero convertido -?-
b) NumDecimales...
-> 'acepta' HASTA 12 posiciones decimales... pero la 'traduccion' de las fracciones... [p.e.]
[estoy seguro que si 'cobrarian', pero...] -> pagarias seiscientos cincuenta mil millones de 'centavos' [libras esterlinas] ???
c) combinar 'con criterio' ->y/o revisar la 'concordancia'<- entre...
a) sMoneda <-> SexoMoneda [o... NomMoneda <-> GenMoneda]
b) sCentimos <-> SexoCentimos [ o... NomCentimos <-> GenCentimos]
-> segun como 'quede' la cobinacion ['generos' versus 'sexos'] podrias obtener una 'traduccion' del tipo...
doscientOS pesetAS o... doscientAS pesOS :))
4) cuando se trata de cifras en 'millones enteros' [un millon, dos millones, mil millones, etc.] 6 ceros NO 'significativos'...
'omite' la palabra 'DE' un millon DE... dos millones DE... mil millones DE... :-(
5) si se pretende utilizar con XL'97... no hay 'soporte' para el 'enumerador' de los 'sexos'
[en el codigo hay una declaracion 'de tipo': Public Enum Sexo, y esta 'asignado' a argumentos y variables de la funcion]