Meses entre 2 fechas

Con esta simple rutina puedes determinar cuantos meses hay entre 2 fechas.

FUNCTION MesesEntreFechas(pdFecha2, pdFecha1)
  LOCAL lnAnio AS INTEGER, lnMes AS INTEGER
  lnAnio = YEAR(pdFecha2) - YEAR(pdFecha1)
  lnMes = MONTH(pdFecha2) - MONTH(pdFecha1)
  RETURN ((lnAnio * 12) + lnMes)
ENDFUNC

Jose Matute