Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Calcular la antigüedad en años de una fecha dada - Delphi
Lenguaje de programación Borland Delphi



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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+