Code von Zeitrechnung verbessern

[DieDolly]

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;

[TiGü]

Bitte ankreuzen, in welcher Hinsicht verbessern?

[ ] Geschwindigkeit
[ ] Lesbarkeit/Verständlichkeit
[ ] Quelltextlänge/Kürze
[ ] Egal, ich stelle gerne programmiertechnisch-esoterische Fragen
[ ] Ich habe gar kein richtiges Problem, versuche mich nur abzulenken

[DieDolly]

Zitat:

[ ] Geschwindigkeit
[X] Lesbarkeit/Verständlichkeit
[X] Quelltextlänge/Kürze
[X] Egal, ich stelle gerne programmiertechnisch-esoterische Fragen
[ ] Ich habe gar kein richtiges Problem, versuche mich nur abzulenken

:thumb:

[dummzeuch]

Zitat:

Zitat von DieDolly (Beitrag 1452369)

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.

[DieDolly]

Deswegen bin ich hier, um das zu verbessern. Ich bin leider nicht ganz firm auf dem Gebiet.

[Andreas13]

Die korrekte Berechnung ist wesentlich komplizierter, weil auch die unterschiedliche Länge der Monate, die Schaltjahre & evtl. der Übergang zwischen Julianischem und Gregorianischem Kalender berücksichtigt werden müssen.
Gruß, Andreas

[Rollo62]

Warum verlässt Du dich nicht auf die DateUtils für solche Umrechnungen ?

[Uwe Raabe]

TTimeSpan kann das bis zu Days auf einen Aufruf (FromSeconds) herunterbrechen. Für Monate und Jahre geht des wegen der unterschiedlichen Längen dieser Einheiten nun mal nicht.

[DieDolly]

TTimeSpan und DateUtils möchte ich nicht verwenden.
Ich möchte aus Sekunden Jahre, Monate, Tage, Stunden Minuten und Sekunden machen. Das klappt mit dem Code da oben auch aber ich frage mich, wie man den verbessern kann denn der ist bestimmt alles andere als richtig.

[Union]

Wenn Du generell gewillt bist, bestehende Library-Routinen einzusetzen würde ich DecodeDateTime empfehlen.