Si usas componenetes con la fecha, como por ejemplo un monthcalendar,
puedes restarlas desde delphi primero convirtiendolas a string y luego a float manejando el tipo de variable como extended para poder soportar las fechas... tal vez asi con una que otra corrreccion:
procedure TForm1.BitBtn1Click(Sender: TObject);
var f1, f2, resultado : Extended;
fecha1, fecha2 : String;
begin
fecha1:= DateToStr(MonthCalendar1.Date);
fecha2:= DateToStr(MonthCalendar2.Date);
f1:= StrToFloat(fecha1);
f2:= StrToFloat(fecha2);
resultado:= Round(f1-f2); // La fecha uno obviamente debe ser mayor, la funcion round permite solo tener la fecha sin los decimales de la hora para evitar errores al comparar
Edit1.Text:= FloatToStr(resultado);
end;
Igualmente si la necesitas como fecha solo debes convertirla... Si tienes otra idea sera mejor...
