[noshy]

Muchas Gracias, la solucion fue esta:

Código Delphi [-]
var
    vcantdoas : Double;
begin
    vcantdias := abs(Date1-date2);
end;