Zitat:
Unit
DateUtils
Syntax
[Delphi] function YearsBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;
Beschreibung
Mit YearsBetween können Sie die Differenz zwischen zwei TDateTime-Werten in Jahren ermitteln. Da nicht alle Jahre dieselbe Länge aufweisen (Schaltjahre), gibt YearsBetween eine Näherung zurück, die auf einem Wert von 365,25 Tagen pro Jahr basiert. Es werden nur vollständige Jahre gezählt. Deshalb meldet YearsBetween beispielsweise die Differenz zwischen dem 1. Januar und dem 31. Dezember mit 0, wenn kein Schaltjahr vorliegt. Bei Schaltjahren wird dagegen der Wert 1 zurückgegeben.
DateUtils in uses einbinden
