diff options
-rw-r--r-- | fhunit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -292,12 +292,12 @@ begin ma:=count; while mi<ma do begin neu:=(mi+ma) div 2; - if (neu>=count) or (items[neu].zeit<zeit) then begin + if (neu>=count) or (round((items[neu].zeit - zeit) * 6 * 24) < 0) then begin inc(neu); mi:=neu; continue; end; - if items[neu].zeit>zeit then begin + if round((items[neu].zeit - zeit) * 6 * 24) > 0 then begin ma:=neu; continue; end; |