![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Gracias amigos ya quedo listo.
|
#2
|
||||
|
||||
pregunta!
por pura curiosidad que era lo que estabas haciendo mal que no te arrojaba el resultado?
saludos.
__________________
el cielo me dio un cariño sin merecerlo... chimikuilo!!! |
#3
|
|||
|
|||
![]() ok amigos les voy aponer mi codigo ya funcionando del cual les agradesco mucho sus contestaciones.
Código:
procedure TAlta_factura.Button1Click(Sender: TObject); var no1,no2:double; no3,no4:real; begin if (edit4.text='')then edit4.Text:='0'; if edit6.text='' then edit6.Text:='0'; no1:=strtofloat(edit4.Text); no2:=strtofloat(edit6.Text); edit7.Text:=formatfloat('0.00',no1+no2); no3:=strtofloat(edit10.Text); edit8.text:=formatfloat('0.00',no3/1.15); no4:=strtofloat(edit8.Text); edit9.Text:=formatfloat('0.00',no4*0.15); label5.Caption:=CantidadEnLetra(StrtoFloat(edit10.Text),1); end; |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
45 Centavos | enecumene | Humor | 5 | 23-10-2008 17:51:23 |
Como convertir numero entero en letra | kurono | Varios | 2 | 23-01-2008 05:10:39 |
Convertir numero en cadena | rex | JAVA | 7 | 25-10-2007 03:28:11 |
Convertir Numero a Letras... en frances | jcarteagaf | Varios | 4 | 11-09-2007 19:23:45 |
De número a letra | samame | Varios | 1 | 10-03-2004 17:31:41 |
![]() |
|