Date-Unit: Datumsberechnungen

[engine]

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