Buenos dias.
Hace ya un tiempo que no aparecía por aquí pues tenía un poco olvidada la programación, pero ahora me ha surgido la necesidad de actualizar una base de datos y en ella debo controlar la diferencia en años entre dos fechas.
El proceso que hago es el siguiente:
Código Delphi
[-]procedure TF_Arbitres.Calcul_Anyo;
var
Anio:TDatetime;
a,m,d,a1,m1,d1,a2,m2,d2: Word;
begin
Anio := Now;
DecodeDate(Anio, a,m,d);
Anio := F_ModulDades.ArbitresDATA_1_LLIC.Value;
DecodeDate(Anio, a1,m1,d1);
if F_ModulDades.ArbitresDATA_BAIXA.Value <> 0 then
begin
DecodeDate(F_ModulDades.ArbitresDATA_BAIXA.Value, a2,m2,d2);
Anyo:= a2-a1;
end
else
Anyo:= a-a1;
end;
Este proceso funciona bien pero me da un resultado "erróneo o no deseado".
Si tengo como fecha inicio 1/1/2000 y fecha fin 31/12/2005, el resultado es 5, pero para mi el resultado debería ser 6 ya que los años pasados son:
2000, 2001, 2002, 2003, 2004 y 2005.
Como podria controlar esto?
Una forma "fácil" aunque no se si muy correcta seria sumar 1 al valor Anyo
Anyo:=(a-a1)+1
No se si se podría hacer calculando el numero de días o meses y luego dividir....
Como siempre gracias por adelantado por leerme.
Saludos
Josep