Numeros a Letras!!

[jmedina]

Buen dia Foro:

Tengo un pequeño problemilla, espero me puedan ayudar, me he documentado en la conversion de numero a letras , por ejemplo, $1235.00 (mil DosCientos treinta y cinco pesos 00/100 M.N.) asi mismo en la informacion que encontre no pude lograr que funcione esto, en realidad no supe como hacerlo, alguien tiene una ejemplo mas sencillo, y me pueda decir en que parte de mi codigo ponerlo para que funcione.

Saludos
Jmedina

[roman]

¿Cómo podemos darte un ejemplo más sencillo si no sabemos cuál es el ejemplo que viste? ¿Y cómo podemos saber en qué parte de tu código se pone si no vemos tu código?

En todo caso, en la sección de componentes del Club está la componente ATexto que convierte números a letras. Mírala a ver si te sirve.

// Saludos

[Neftali [Germán.Estévez]]

¿Has probado el componente que hay en la sección componentes del Club?

En la carpeta de Conversion.

[lionsoft]

Necesito usar el componente ATexto en un reporte QuickReport, o sea, dp de poner $ 200, necesito que lo diga en palabras. Como lo uso sobre reportes?
Ahh.. ademas necesito pasar la fecha (por eje: 04/12/2004) a letras... como hago?
Muchas gracias
Lion

[jmedina]

He visto el Atexto que esta en el Foro pero la verdad no entiendo como llamarlo como, usarlo.

Alguien me puede explicar,

Saludos

Jmedina

[roman]

Empezado por jmedina

Alguien me puede explicar,

En la propiedad Numero pones la cantidad que desees, por ejemplo:

Letras1.Numero := 1425.3;

Para obtener el número escrito en letras usas la propiedad AsString:

Edit1.Text := Letras1.AsString;

Con lo que obtendrás:

"mil cuatrocientos veinticinco con treinta"

Las propiedades Moneda y Centavos te sirven para indicar cómo quieres nombrar las unidades y los decimales. Por ejemplo, si pones

Letras1.Monedas := 'euros';
Letras1.Monedas.Centavos := 'centavos';

la propiedad AsString te dará:

"mil cuatrocientos veinticinco euros con treinta centavos"

La propiedad Masculino es para indicar su quieres que el texto esté en género masculino o femenino. Así, si pones

Letras1.Moneda := 'mujeres';
Letras1.Centavos := 'niñas';
Letras1.Numero := 3.04;
Letras1.Masculino := false;

La propiedad AsString te dará:

"tres mujeres con cuatro niñas"

Finalmente, la propiedad Separador me parece que es para indicar el separador decimal (punto, coma o el que uses).

// Saludos

[lynx]

Saludos, necesito convertir una cantidad a letras pero que me separe los centavos es decir 115.23 (Ciento Quince Pesos 23/100 MN) ya utilize el componente Atexto solo que no encuentro la manera de separar los centavos (23/100) ¿Alguien podria Ayudarme?

[roman]

¿Quieres decir que los decimales los vas a colocar como números en lugar de letras?

Entonces podrías hacer algo como

Código Delphi [-]
Letras1.Numero := Trunc(Numero);
Edit1.Text := Format('%s %d/100 MN', [Letras1.AsString, Trunc(100*Frac(Numero))]);

donde Numero es una variable de tipo Extended con el número que vas a usar.

// Saludos

[torito]

Empezado por lynx

Saludos, necesito convertir una cantidad a letras pero que me separe los centavos es decir 115.23 (Ciento Quince Pesos 23/100 MN) ya utilize el componente Atexto solo que no encuentro la manera de separar los centavos (23/100) ¿Alguien podria Ayudarme?

Tengo un conocido que hizo ese procedimiento al grado que yo lo uso y trabaja super bien, obviamente que por derechos de autor no te lo puedo pasar yo, pero te paso el correo de esta persona asanxt@hotmail.com, se llama Alejandro...
saludos

[roman]

Empezado por torito

asanxt at hotmail.com[/b], se llama Alejandro...

Es buena idea que cuando cites una dirección de email sustituyas la arroba porque los robots están a la orden del día.

Por cierto, dile a Alejandro que me gustaría verlo nuevamente por estos foros.

// Saludos

[vtdeleon]

Saludos

Empezado por roman

...los robots están a la orden del día.

Una peste-Net!!!

[torito]

Empezado por roman

Es buena idea que cuando cites una dirección de email sustituyas la arroba porque los robots están a la orden del día.

Por cierto, dile a Alejandro que me gustaría verlo nuevamente por estos foros.

// Saludos

ok, se lo dire... solo una duda, ah qué te refieres con robots??

[roman]

Básicamente a una aplicación que se dedica a escanear sitios webs en búsqueda de información de uno u otro tipo. Aquí mismo en los foros, cotidianamente aparecen robots de Google para indizar las páginas. Esto no es problema, pero hay robots que recolectan direcciones de correo para envío masivo de spam.

// Saludos