Code von Zeitrechnung verbessern

Thema durchsuchen

Ansicht

Themen-Optionen

Code von Zeitrechnung verbessern

Ein Thema von DieDolly · begonnen am 28. Nov 2019 · letzter Beitrag vom 29. Nov 2019

Vorheriger Beitrag

Nächster Beitrag

DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge

Code von Zeitrechnung verbessern

28. Nov 2019, 12:30

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?

markieren

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;