Cambiar numeros a cantidad con letra

#16

21-05-2008

[enecumene] enecumene is offline

Miembro de Oro

Registrado: may 2006

Ubicación: Santo Domingo, Rep. Dom.

Posts: 3.040

Poder: 22

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var Numero: Extended;
begin
Numero := StrToFloat(Edit1.Text);
Letras1.Numero := Trunc(Numero);
Edit2.Text := Format('%s CON %d/100 .-', [Letras1.AsString, Trunc(100*Frac(Numero))]);
end;

Molestias no hay ninguna

.

Saludos.

__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.

« Tema Anterior | Próximo Tema »

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Cambiar a Modo Hibrido Modo Hilado

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
cambiar tipo de letra	Max_E.	Varios	1	28-02-2007 21:58:28
Cambiar el tipo de letra en un QReport	adebonis	Impresión	7	30-08-2005 17:51:08
Como Cambiar Una Cantidad Numerica En Una Cantidad En Letra	AdIIX	Varios	3	28-04-2005 21:45:23
cantidad con letra de dolares	torito	Varios	5	29-03-2005 18:58:53
Cambiar el tipo de letra de un TMainMenu	BlueSteel	Varios	1	05-01-2005 13:59:30

La franja horaria es GMT +2. Ahora son las 18:13:46.