Zitat von
Sir Rufo:
Die Version ist - es wird nun nicht mehr gerundet - so auch gekauft
Wenn du die Extravariablen (d1 und d2) nimmst, dann kannst du das CONST wieder bei den Parametern einfügen
(hatte mir diese zusätzlichen Variablen nur erspart, da Delphi hier, selbst mit CONST nicht call-by-referenz nutzt, sondern auch da beide Parameter auf den Stack schiebt, so als würde kein CONST dastehn ... drum hat man ohne Extravariablen und ohne CONST 16 Byte auf'm Stack eingespart, aber so sehr fällt das nun auch nicht auf
)
Wenn du die Tageszeit mit beachten willst, dann dürfte eine weitere Zeile nach CheckedSwap dieses wohl ermöglichen
If Trunc(d1) < Trunc(d2) then d2 := d2 + 1;
eventuell auch mit 'nem kleinen Rundunssschutz von ~1 Sekunde
If d2 - d1 >= 0.00001157 {1s} then d2 := d2 + 1;
oder andersrum?
Delphi-Quellcode:
If Trunc(d1) > Trunc(d2) then d2 := d2 - 1;
// bzw.
If d1 - d2 >= 0.00001157 {1s} then d2 := d2 - 1;
mein schädel brummt grad etwas und hab jetzt nicht so den Nerv mir 'nen kleines Testprogrämmchen zu schreiben