Ayuda con funcion para Determinas meses

[ecfisa]

Hola microbiano.

No se entiende bién lo que deseas hacer, por lo que veo pareciera que deseas obtener los meses entre dos fechas incluyendo los meses de la fecha incial y final....

Si es así podrías hacer:

Código Delphi [-]
uses DateUtils;

function Lapso(const f1, f2: TDate): Integer;
begin
  if (YearOf(f1)=YearOf(f2))and(MonthOf(f1)=MonthOf(f2)) then
    Result:= 1
  else
    Result:= MonthsBetween(f1, f2) + 2;
end;

Pero creo que debes explicar con más detalle cuál es el resultado que pretendes obtener.

Saludos.