|
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;
|