YearsBetween (fechaHasta, fechaDesde)

Función Delphi que obtiene los años transcurridos entre dos fechas.

Puesto que los años no son todos de la misma longitud (por ejemplo años bisiestos), YearsBetween devuelve una aproximación basada en el supuesto de que un año tiene 365,25 días. Las fracciones de año no se contarán. Así, por ejemplo, YearsBetween informa de la diferencia entre el 1 de enero y el 31 de diciembre como 0 en los años bisiestos y como 1 en los años no bisiestos.

Ejemplo de uso:

  try
    txtAniosPasados.Text :=
        FloatToStr(quitarDecimales (YearsBetween(Date, StrToDate(txtFechaAntiguedad.Text)) / 3, 0);
  except
    txtAniosPasados.Text := '';
  end; 
alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario