restar fechas para comparar resultado

[marcoszorrilla]

Por qué no guardas la diferencia entre las fechas en una variable y a partir de ahí comparas?

procedure TForm1.Button1Click(Sender: TObject);
var
nDias:Variant;
begin
nDias:=Date - table1fecha.value ;
ShowMessage(IntToStr(nDias));
end;

Un Saludo.