Os mostramos un ejemplo en Delphi 6 de cómo calcular la antigüedad (en años) de una fecha dada. En este ejemplo hemos creado un campo calculado llamado "LAntiguedad" en un TTable, en el evento "CalcFields" del TTable hemos añadido el siguiente código:

procedure TFormFincas.TVariedadesCalcFields(DataSet: TDataSet);
var
  antiguedad : integer;
begin
  try
    if not varisnull(tvariedadesFecha.value) and (tvariedadesFecha.value <> 0) then
    begin

      //cálculo de la antigüedad de una variedad
      antiguedad := trunc (trunc (date - tvariedadesFecha.value) / 365);

      tvariedadesLAntiguedad.value := antiguedad;
    end;
  except
    //raise;  no se muetra el error ya que es un campo calculado
  end;
end;

Publicado el: 2006-06-07