Clipper/FiveWin - Saber Meses

Hola amigos del foro, quisiera saber si alguien no tiene una rutina para saber exactamente cuanto meses hay entre dos fecha, desde ya agradezco de antemano.
Un abrazo, Cesar.

Cesar,

Si estas con Clipper 5.x, resta las fechas entre si y dividelo entre 30
asi:

set date italian
m_meses = (ctod('01-03-2004')-ctod('01-01-2004'))/30

En este ejemplo m_meses sera igual a 2.

Jose

Puedes usar esta función que, según la fecha que se envíe, devuelve un factor único para el mes de esa fecha (Ejem. Febrero del 2004, tiene un factor diferente a Febrero del 2003 o del 2005):

Function FactorMes( dFecha )
local nFactor
nFactor := year( dFecha ) * 12 -12 + month( dFecha )
return( nFactor )

Y de esta manera la usarías, para obtener la diferencia en meses entre dos fechas (supongamos que las fechas las tienes en las variables
dF1 y dF2):

nMeses := FactorMes( dF2 ) - FactorMes( dF1 )

Espero haberte ayudado.
Saludos.