calcular meses entre dos fecha

[emeritos]

Hola dilferos.

¿Existe alguna funcion que me diga los meses transcurridos entre dos fechas. Esas fechas estan en una tabla definidas con date?

Gracias.

[jhonny]

Hola,

System.DateUtils.MonthsBetween

Saludos.

[emeritos]

me da error la utilizo asi

Código Delphi [-]
i : Integer;
i := System.DateUtils.MonthsBetween(Texperiencia['fecha_fin'],Texperiencia['fecha_ini']);

y asi tambien

Código Delphi [-]
i : Integer;
i := MonthsBetween(Texperiencia['fecha_fin'],Texperiencia['fecha_ini']);

No se si hay que poner algo en el uses

[emeritos]

Ya esta muchas gracias.

[emeritos]

Me he dado cuenta que hay veces que no te dice los meses que han pasado yaque la funcion solo calcula los dias y divide por 30. Por ejemplo desde el 1/02/2017 al 1/03/2017 ha pasado 1 mes y esta funcion te dice que 0 meses.

¿Hay otra mas exacta ?

gracias.

[jhonny]

No he adecuado el siguiente ejemplo para lo que necesitas que son sólo meses... pero seguro que te dará un norte...

http://www.clubdelphi.com/foros/show...55&postcount=3

[[Lepe]]

El cálculo que hace delphi es correcto.

Al omitir la parte horaria de una fecha, se igualan a 0:00 y puesto que no ha pasado ni un solo milisegundo, te da cero meses en lugar de 1. haz la prueba con 1/03/2017 0:00:00,1

Yo declararía las fechas como timeStamp, es decir, fecha y hora.

Saludos!

[roman]

Empezado por Lepe

El cálculo que hace delphi es correcto.

El problema es que toma un estimado del número de días por mes,

Código Delphi [-]
var
  ApproxDaysPerMonth: Double = 30.4375;

y como febrero tiene 28 días, el resultado es erróneo pues incluso entre 2017/02/01 y 2017/03/03 marca 0 meses cuando ha pasado un mes y dos días.

LineComment Saludos

[[Lepe]]

auch!! Eso duele