Calcular diferencia entre fechas

La función DaysBetween retorna el número de días entre dos fechas.

function DaysBetween (const ANow, aThen: TDateTime):Integer;

El primer parámetro es la fecha que se restará de la fecha del segundo parámetro. La función devuelve un entero que es la diferencia en días entre aThen y aNow, es decir, aThen - aNow.

Ejemplo:


var
  fechaInicio, fechaFin : TDate;
  intDias : Integer;
begin
  fechaInicio := StrToDate ('11/06/2017');
  fechaFin := StrToDate ('12/06/2017');
  intDias := DaysBetween (fechaInicio, fechaFin);
  ShowMessage (IntToStr (intDias)); // devuelve 1
end;