summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--fhunit.pas4
1 files changed, 2 insertions, 2 deletions
diff --git a/fhunit.pas b/fhunit.pas
index d75ce95..a1b2cbf 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -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;