![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
#2
|
|||
|
|||
|
mi programa esta echo en builder
tengo un problemon mi programa esta echo en builder y ya casi estoy en la etapa final, quisiera saber si este(Aletras) me puede ayudar en buider 5 o tengo que buscar otro componente para builder.(ayuda es para mi residencia profesional)
![]() |
|
#3
|
||||
|
||||
|
Hola pollo_c
No se si sirva, es mas nunca he usado, builder, me es dificil responder eso. Ahora, he visto muchas veces en el foro, que builder tiene una interface parecida a Delphi, (si es asi), pues trata de instalar el componente, lo mas que puede pasar es que te lo rechace y no funcione. Otra cosa que puedes hacer es, abrir el componente y ver como trabaja por dentro, esto en el pas. asi podrias hacer la misma operacion sin necesidad del componente. Pregunta de curiosidad: En que año de estudios estas ? Saludos |
|
#4
|
|||
|
|||
|
Cita:
Si no es para JBuilder pues tu tarea sería convertirlo, bueno, no todo en la vida es fácil. Saludos y espero que logres terminarlo y obtener tu residencia profesional.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
|
#5
|
|||
|
|||
|
Como convetir numeros a letras
Hola que tal yo tengo un algoritmo en builder c++ que tal ves te pueda servir, este codigo yo lo utilice para inprimir en la cantidad de una factura en letras, esta sencillo ojala y te sirva, tambien lo tengo para delphi si lo necesitas; a esta funcion solo tienes que enviarle el los parametros de TotInv que es el numero a convertir a letras y la Moneda que es la teminacio de dolares USD o pesos MN:
Código:
TotInv = 1350.50
Moneda = -1
AnsiString Leyenda(AnsiString TotInv,AnsiString Moneda)
{
String Unidades[29];
String Decenas[7];
String Centenas[9];
float Decimal;
int Importe,X;
bool Cien,Miles,De;
AnsiString ImptoStr,retleyenda;
retleyenda = "";
Unidades[0] = "UN";
Unidades[1] = "DOS";
Unidades[2] = "TRES";
Unidades[3] = "CUATRO";
Unidades[4] = "CINCO";
Unidades[5] = "SEIS";
Unidades[6] = "SIETE";
Unidades[7] = "OCHO";
Unidades[8] = "NUEVE";
Unidades[9] = "DIEZ";
Unidades[10] = "ONCE";
Unidades[11] = "DOCE";
Unidades[12] = "TRECE";
Unidades[13] = "CATORCE";
Unidades[14] = "QUINCE";
Unidades[15] = "DIECISEIS";
Unidades[16] = "DIECISIETE";
Unidades[17] = "DIECIOCHO";
Unidades[18] = "DIECINUEVE";
Unidades[19] = "VEINTE";
Unidades[20] = "VEINTIUN";
Unidades[21] = "VEINTIDOS";
Unidades[22] = "VEINTITRES";
Unidades[23] = "VEINTICUATRO";
Unidades[24] = "VEINTICINCO";
Unidades[25] = "VEINTISEIS";
Unidades[26] = "VEINTISIETE";
Unidades[27] = "VEINTIOCHO";
Unidades[28] = "VEINTINUEVE";
Decenas[0] = "TREINTA";
Decenas[1] = "CUARENTA";
Decenas[2] = "CINCUENTA";
Decenas[3] = "SESENTA";
Decenas[4] = "SETENTA";
Decenas[5] = "OCHENTA";
Decenas[6] = "NOVENTA";
Centenas[0] = "CIEN";
Centenas[1] = "DOSCIENTOS";
Centenas[2] = "TRESCIENTOS";
Centenas[3] = "CUATROCIENTOS";
Centenas[4] = "QUINIENTOS";
Centenas[5] = "SEISCIENTOS";
Centenas[6] = "SETECIENTOS";
Centenas[7] = "OCHOCIENTOS";
Centenas[8] = "NOVECIENTOS";
Importe = StrToFloat(TotInv);
Decimal = FormatFloat("#,##0.00",StrToFloat(TotInv)) - Importe;
ImptoStr = "(";
Cien = false;
Miles = false;
De = false;
if(Importe >= 1000000)
{
X = Importe/1000000;
De = true;
Importe = Importe % 1000000;
if (X != 1)
ImptoStr = ImptoStr + " " + Unidades[X-1] + " MILLONES ";
else
ImptoStr = ImptoStr + "UN MILLON";
}
if (Importe != 0 )
De = false;
if (Importe >= 100000)
{
X = Importe/100000;
Importe = Importe % 100000;
ImptoStr = ImptoStr + " " + Centenas[X-1];
Miles = true;
if(X == 1)
Cien = True;
}
if(Importe >= 30000)
{
Miles = True;
X = Importe / 10000;
Importe = Importe % 10000;
if(Cien)
{
ImptoStr = ImptoStr + "TO";
Cien = False;
}
ImptoStr = ImptoStr + " " + Decenas[X-3];
if ( (Importe < 10000) & (Importe >= 1000))
ImptoStr = ImptoStr + " Y";
}
if((Importe >= 1000) & (Importe < 30000))
{
Miles = True;
X = Importe / 1000;
Importe = Importe % 1000;
if(Cien)
{
ImptoStr = ImptoStr + "TO";
Cien = False;
}
ImptoStr = ImptoStr + " " + Unidades[X-1];
}
if(Miles)
{
ImptoStr = ImptoStr + " MIL";
Cien = False;
}
if(Importe >= 100)
{
X = Importe / 100;
Importe = Importe % 100;
ImptoStr = ImptoStr + " " + Centenas[X-1];
if(X == 1)
Cien = True;
}
if(Importe >= 30)
{
X = Importe / 10;
Importe = Importe % 10;
if(Cien)
{
ImptoStr = ImptoStr + "TO";
Cien = False;
}
ImptoStr = ImptoStr + " " + Decenas[X-3];
if(Importe != 0)
ImptoStr = ImptoStr + " Y";
}
if(Importe >= 1)
{
if(Cien)
ImptoStr = ImptoStr + "TO";
ImptoStr = ImptoStr + " " + Unidades[Importe-1];
}
if(Moneda == -1)
if(De)
retleyenda = ImptoStr + " DE PESOS " + FormatFloat("00",Decimal * 100) + "/100 M.N.)";
else
retleyenda = ImptoStr + " PESOS " + FormatFloat("00",Decimal * 100) + "/100 M.N.)";
else
retleyenda = ImptoStr + " DOLARES " + FormatFloat("00",Decimal * 100)+ "/100 USD)";
return retleyenda;
}
Última edición por dec fecha: 15-12-2006 a las 22:32:40. |
|
#6
|
|||
|
|||
|
hola amigos, si pude terminar mi programa, disculpen por no agradecerles a tiempo, pero quiero agradecer al club y a todos los que me ayudaron,
muchas gracias a: caral neftali egostar gus_ggo sin mas por el momento garcias |
|
#7
|
||||
|
||||
|
Si queremos pasar directamente las palabras generadas a mayúsculas utilizando Atexto y pegarlo en un Edit o Memo hacemos:
Lo que hace FormatFloat('####',StrToFloat(Label1.Caption)) es convertir un flotante a entero. Me explico: El número 2345,56 es equivalente a 2346 en entero, por lo tanto la cifra que va a convertir a palabras no será 2345,56 sino 2346. Saludos ![]() |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Convertir números en letras | c748a | Varios | 14 | 10-04-2015 20:52:18 |
| Numeros y letras | Caral | Varios | 11 | 28-03-2008 18:22:53 |
| Numeros a Letras!! | jmedina | Varios | 26 | 20-10-2005 20:19:42 |
| trasformar numeros a letras | NestorN | Varios | 1 | 17-09-2005 01:33:44 |
| como validar numeros y letras | ealexmp | Impresión | 0 | 29-12-2004 23:11:17 |
|