Club Builder

[Humberto]

hola,
mi problema es el siguiente.

resulta que quiero convertir un numero entero a letras.
ej: 1520 return MIL QUINIENTOS VEINTE

Gracias por tu ayuda
_________________
NINGUNO DE NOSOTROS ES TAN BUENO,
COMO TODOS NOSOTROS

[Cesar C. Salazar Gonzalez]

te mando una funcion que lo realiza, dentro de la pagina principal del foro exite una DLL, enviada por ZIC, (www.arrakis.es/~rporcar), para convertirla, pero a qui pongo un codigo, para hacerlo.., es un poco larga
la funcion se llama NoToLet(), y le pasas como parametro una cadena para representar el numero

Ejemplo
Label1->Capition = NoToLet("56342");

y este es el codigo fuente.. se pude mejorar.. y espero que me envies la respuesta

[Humberto]

Voy a probarlo

Muchas Gracias.
_________________
NINGUNO DE NOSOTROS ES TAN BUENO,
COMO TODOS NOSOTROS

[Cesar C. Salazar Gonzalez]

Espero que haya, funcionado, te habras dado cuenta.. que utliza funciones de antiguas como el strcat strcopy, etc. es que ya tiene un buen rato que la hice...
_________________

[Humberto]

Gracias.

si me funcionó, aunque me toco hacerle unos cambios. de char a AnsiString
_________________
NINGUNO DE NOSOTROS ES TAN BUENO,
COMO TODOS NOSOTROS

[Cesar C. Salazar Gonzalez]

Pues ahora pon el Codigo Mejorado.. para todos...
en esta parte del foro
_________________

[Humberto]

AnsiString NoToLet(const char *A){
const char *numero=A;
AnsiString Letras;
int p,l=0,des;
p=0;
//Letras[0]='\0';
char N1='0',N2='0',N3='0';
int ancho=strlen(numero);
int ancho2=strlen(numero);
while(l<=ancho-1){

if(ancho2-3==0 || ancho2-6==0 || ancho2-9==0){
p=3;
des=3;
}
if(ancho2-3==-1 || ancho2-6==-1 || ancho2-9==-1){
p=2;
des=2;
}
if(ancho2-3==-2 || ancho2-6==-2 || ancho2-9==-2){
p=1;
des=1;
}
///////////////////// numeros de Cienes.
if(p==3){
N1=numero[l];
N2=numero[l+1];
N3=numero[l+2];
switch(N1){
case '0':
l++;
p--;
break;
case '1':
if(N2=='0' && N3=='0'){
Letras= Letras + " Cien ";
l+=2;
p-=2;
}else{
Letras= Letras + " Ciento ";
l++;
p--;
}
break;
case '2':
Letras= Letras + " Doscientos ";
l++;
p--;
break;
case '3':
Letras= Letras + " Trescientos ";
l++;
p--;
break;
case '4':
Letras= Letras + " Cuatroscientos ";
l++;
p--;
break;
case '5':
Letras= Letras + " Quinientos ";
l++;
p--;
break;
case '6':
Letras= Letras + " Seiscientos ";
l++;
p--;
break;
case '7':
Letras= Letras + " Setecientos ";
l++;
p--;
break;
case '8':
Letras= Letras + " Ochocientos ";
l++;
p--;
break;
case '9':
Letras= Letras + " Novecientos ";
l++;
p--;
break;
}
}
///////////////////// numeros de decenas.
if(p==2){
N1=numero[l];
N2=numero[l+1];
switch(N1){
case '0':
l++;
p--;
break;
case '1':
if(N2!='0'){
switch(N2){
case '1':Letras= Letras + " Once ";
break;
case '2':Letras= Letras + " Doce ";
break;
case '3':Letras= Letras + " Trece ";
break;
case '4':Letras= Letras + " Catorce ";
break;
case '5':Letras= Letras + " Quince ";
break;
case '6':Letras= Letras + " Diesciseis ";
break;
case '7':Letras= Letras + " Diescisiete ";
break;
case '8':Letras= Letras + " Diesciocho ";
break;
case '9':Letras= Letras + " Diescinueve ";
break;
}
}else{
Letras= Letras + " Diez ";
}
l+=2;
p-=2;
break;
case '2':
if(N2!='0'){
Letras= Letras + " Veinti";
l++;
p--;
}else{
Letras= Letras + " Veinte ";
l+=2;
p-=2;
}
break;
case '3':if(N2!='0'){
Letras= Letras + " Treinta y ";
l++;
p--;
}else{
Letras= Letras + " Treinta ";
l+=2;
p-=2;
}
break;
case '4':if(N2!='0'){
Letras= Letras + " Cuarenta y ";
l++;
p--;
}else{
Letras= Letras + " Cuarenta ";
l+=2;
p-=2;
}
break;
case '5':if(N2!='0'){
Letras= Letras + " Cincuenta y ";
l++;
p--;
}else{
Letras= Letras + " Cincuenta ";
l+=2;
p-=2;
}
break;
case '6':if(N2!='0'){
Letras= Letras + " Sesenta y ";
l++;
p--;
}else{
Letras= Letras + " Sesenta ";
l+=2;
p-=2;
}
break;
case '7':if(N2!='0'){
Letras= Letras + " Setenta y ";
l++;
p--;
}else{
Letras= Letras + " Setenta ";
l+=2;
p-=2;
}
break;
case '8':if(N2!='0'){
Letras= Letras + " Ochenta y ";
l++;
p--;
}else{
Letras= Letras + " Ochenta ";
l+=2;
p-=2;
}
break;
case '9':if(N2!='0'){
Letras= Letras + " Noventa y ";
l++;
p--;
}else{
Letras= Letras + " Noventa ";
l+=2;
p-=2;
}
break;
}
}
///////////////////// numeros ordinarios.
if(p==1){
N1=numero[l];
switch(N1){
case '0':
break;
case '1':
Letras= Letras + "Uno ";
break;
case '2':Letras= Letras + "Dos ";
break;
case '3':Letras= Letras + "Tres ";
break;
case '4':Letras= Letras + "Cuatro ";
break;
case '5':Letras= Letras + "Cinco ";
break;
case '6':Letras= Letras + "Seis ";
break;
case '7':Letras= Letras + "Siete ";
break;
case '8':Letras= Letras + "Ocho ";
break;
case '9':Letras= Letras + "Nueve ";
break;
}
l++;
}
// miles
if(N1!='0'){
if(ancho2==11 || ancho2==12 || ancho2==10)
if (ancho2==7 && N1=='1')
Letras=" Un Billon ";
else
Letras= Letras + " Billones ";


if(ancho2==8 || ancho2==9 || ancho2==7)
if (ancho2==7 && N1=='1')
Letras= " Un Millon ";
else
Letras= Letras + " Millones ";
if(ancho2==5 || ancho2==6 || ancho2==4)
if (ancho2==4 && N1=='1')
Letras= " Mil ";
else
Letras= Letras + " Mil ";
}
ancho2-=des;
}
return(Letras);
}
_________________
NINGUNO DE NOSOTROS ES TAN BUENO,
COMO TODOS NOSOTROS

[Cesar C. Salazar Gonzalez]

Bueno.. todo se puede mejorar.. je je
_________________

[Fabalv]

[Angel]

Y si lo colgáis en Tips & Tricks, ¡miel sobre hojuelas!
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[rockman]

Buenas,

Estoy utilizando el codigo de Favalv y me he dado cuenta de un error cuando la cifra es redonda (40000,50000,...)

Os paso el codigo corregido

[Cesar C. Salazar Gonzalez]

existen varias versiones, checa cual te sirve aun que la que he puesto funciona sin ningun problema
_________________

[Streetracer]

Hola.. Una pregunta que puede estar mal con esta parte del codigo

AnsiString Notolet(const char *A){

ya que marca error y dice que la declaracion es incorrecta
_________________
The best of the lost arts