AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Code von Zeitrechnung verbessern

Ein Thema von DieDolly · begonnen am 28. Nov 2019 · letzter Beitrag vom 29. Nov 2019
Antwort Antwort
Seite 1 von 3  1 23   
DieDolly

Registriert seit: 22. Jun 2018
1.913 Beiträge
 
#1

Code von Zeitrechnung verbessern

  Alt 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?

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;
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.810 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 12:46
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
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.913 Beiträge
 
#3

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 12:53
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
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
929 Beiträge
 
Delphi 2007 Professional
 
#4

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 13:27
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.
Thomas Mueller
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.913 Beiträge
 
#5

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 13:31
Deswegen bin ich hier, um das zu verbessern. Ich bin leider nicht ganz firm auf dem Gebiet.

Geändert von DieDolly (28. Nov 2019 um 13:34 Uhr)
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
431 Beiträge
 
Delphi XE5 Professional
 
#6

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 13:54
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
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher.
John C. Cornelius
  Mit Zitat antworten Zitat
Alt 28. Nov 2019, 14:18     Erstellt von Frühlingsrolle
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf SPAM und den damit verbundenen verschwenderischen Umgang von wertvollen Bits und Bytes
Rollo62

Registriert seit: 15. Mär 2007
3.216 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 14:33
Warum verlässt Du dich nicht auf die DateUtils für solche Umrechnungen ?
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.653 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 15:13
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.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.913 Beiträge
 
#9

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 16:21
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.
  Mit Zitat antworten Zitat
Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.347 Beiträge
 
Delphi 7 Enterprise
 
#10

AW: Code von Zeitrechnung verbessern

  Alt 28. Nov 2019, 16:28
Wenn Du generell gewillt bist, bestehende Library-Routinen einzusetzen würde ich Delphi-Referenz durchsuchenDecodeDateTime empfehlen.
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 15:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf