Creo que esta función podría ayudarte
Código Delphi
[-]
function Get_Meses(DataFim, DataIni: TDate):Integer;
var
DiaF, MesF, AnoF, DiaI, MesI, AnoI: Word;
Dias, Meses, Anos: integer;
begin
DecodeDate( DataIni, AnoI, MesI, DiaI);
DecodeDate( DataFim, AnoF, MesF, DiaF);
Dias:=DiaF - DiaI;
Meses:=MesF - MesI;
Anos:=AnoF - AnoI;
if Dias < 0 then
Dec(Meses);
Result := Meses + (Anos * 12);
end;
La podría implementar utilizando un campo autocalculado, pasándole los valores de las dos fechas.
Otra opción sería implementarla en una UDF...
NOTA: El código de la función no es mio la autoría se puede encontrar
aquí;
Tú mismo.