Mir kam ein Stück Code über den Weg. Das ist schon was her.
Das kann man auch mit TimeSpan machen aber ich würde gerne verstehen, wie man das hier verbessern kann?
Delphi-Quellcode:
LDivisor := 60;
LSeconds := Seconds mod LDivisor;
LMinutes := (Seconds div LDivisor) mod LDivisor;
LHours := (Seconds div LDivisor) div LDivisor;
LDays := LHours div 24;
LHours := LHours mod 24;
LMonths := LDays div 30;
LDays := LDays mod 30;
LYears := LMonths div 12;
LMonths := LMonths mod 12;