Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.699 Beiträge
 
Delphi 6 Enterprise
 
#28

AW: Code von Zeitrechnung verbessern

  Alt 29. Nov 2019, 08:34
In der jetzigen Form geshst du ja davon aus, dass die Monate 30 Tage haben und somit das Jahr 360 Tage. Ggf. kannst du minmal genauer werden, wenn du aus der Anzahl der Tage/365 zunächst die Jahre berechnest und dann aus dem Rest der Tage die Monate usw.?

Problem dabei: Ist der Rest >= 360 Tage, und du teilst das durch 30 für die Monate können da 12 oder 13 rauskommen. Ist also fraglich ob das hilft.

Oder du rechnest mit genaueren Durschnittswerten für Monate und Jahre und benutzt dann halt nicht div/mod sondern machst das zu Fuß, weil du da ja keine Integer Werte mehr hast:

Delphi-Quellcode:
Jahre:=Trunc(Tage/365.2425);
Resttage:=Tage-Jahre*365.2425;
Monate:=Resttage/(365.2425/12);
Resttage:=Resttage-Monate*(365.2425/12);
Ralph

Geändert von Jumpy (29. Nov 2019 um 08:42 Uhr)
  Mit Zitat antworten Zitat