FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
var f1,f2:Tdate; f3ouble; begin f1:=Date - 20; f2:=date; f3:=f2 - f1; ShowMessage('La diferencia es: '+FormatFloat(',0',f3)+' días'); end; Si utilizas variables de tipo fecha te ahorras conversiones. Un Saludo. |
|
|
|