![]() |
![]() |
![]() |
![]() |
![]() |
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; |
|
|
![]() |
|