FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Hola
Esto es lo que creo quieres hacer procedure TForm1.Button1Click(Sender: TObject); var data1,data2:tdatetime; diferencia:double; begin data1:=strtodate('10/01/2003'); data2:=strtodate('01/01/2003') ; diferencia:=data1-data2; label1.caption:=formatfloat(',0',diferencia); end; |
|
|
|