[tiqui_loquito]

Gracias David Esperalta

Realice la siguiente modificación al código y me retorna los días cuando solo no ha transcurrido ni un mes

Código Delphi [-]
   if( DDI <= DDF ) then
      DD := DDF - DDI
   else
   begin
      DD := DDF + MonthDays[IsLeapYear(AAF),MMF] - DDI;
      MM := MM - 1;

      if MM = 0 then
      DD:=  DaysBetween(FechaI, FechaF)
   end;