Delphi-Quellcode:
i := (X.Sekunde + Sekunden) div 60;
X.Sekunde := (X.Sekunde + Sekunden) mod 60;
i2 := i;
i := (X.Minute + i2) div 60;
X.Minute := (X.Minute + i2) mod 60;
i2 := i;
i := (X.Stunde + i2) div 24;
X.Stunde := (X.Stunde + i2) mod 24;
...
oder
Delphi-Quellcode:
i := X.Sekunde + Sekunden;
X.Sekunde := i mod 60;
i := i div 60 + X.Minute;
X.Minute := i mod 60;
i := i div 60 + X.Stunde;
X.Stunde := i mod 24;
i := i div 24 + X.Tag;
...
oder ...
Mathematik halt .. nja, zumindestens hast du dir so ganz "elegant" das Problem mit den ungleichlangen Monaten und den Schaltjahren vom Hals geschafft