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.

[microbiano]

lo que quiero hacer es saber cuantos años han pasado y cuantos meses por año.

[[maeyanes]]

Hola...

Si bien entiendo el desea, dado un rango de fechas (una fecha inicial y la fecha actual del servidor de bd), obtener subrangos de fechas limitados por años:

F. Inicial: 23/04/2010
F. Actual: 08/06/2012

Rangos:
Abril 2010 - Diciembre 2010 | 9 meses
Enero 2011 - Diciembre 2011 | 12 meses
Enero 2012 - Junio 2012     | 6 meses

Saludos...

[microbiano]

si amigo es correcta tu observacion amigo [maeyanes], eso es lo que necesito

[microbiano]

amigos este es el resultado de lo que quiero, me gustaria poder llegar a este resultado, pero no lo consigo espero me puedan ayudar.


muchas gracias