diff options
-rw-r--r-- | fhunit.pas | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -438,14 +438,9 @@ begin end; procedure tMessPunkteUpdateThread.nZeitNullen; -var - lIch: longint; begin if beenden then exit; - lIch:=_besitzer.werte.count-1; - while round(_besitzer.werte[lIch].zeit*24*6) mod _tAnz <> _tNum do - dec(lIch); - nZeit:=_besitzer.werte[lIch].zeit + _tAnz*1/24/6; + nZeit:= _besitzer.werte[0].zeit + _tNum * 1 / 24 / 6; synchronized:=true; end; |