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;
Zumindest der letzte Teil ist schlicht falsch: Monate haben nicht immer 30 Tage.
Es sei denn, man ist eine Bank und berechnet Zinsen, dann ist das komischerweise erlaubt. Trotzdem ist die Berechnung dann falsch.