Hallo Moritz,
Die Tage vom aktuellen Datum bis zum letzten Schaltjahr kannst du ja ausrechnen.
Nun noch die Jahre bis zum letzten Schaltjahr.
Delphi-Quellcode:
function JahreNachSchaltjahr(TageNachSchaltjahr : integer) : integer;
begin
if TageNachSchaltjahr < 365 then
begin
Result := 0;
Exit;
end;
if TageNachSchaltjahr > 1460 then //mehr wie vier Jahre
begin
Result := -1;
Exit;
end;
Result := Round((TageNachSchaltjahr / 365) -0.5);
end;
Das addierst du mit den Jahren zwischen dem Geburtstag und dem letzten Schaltjahr.
engine