oletounix should round so seconds do not go one off in conversion

[lcore.git] / btime.pas

diff --git a/btime.pas b/btime.pas
index 54deae594e814544942666d88a578dee925a88bd..ff77de9e8a681a23ae3292c8a604981fe4a3ca93 100644 (file)
--- a/btime.pas
+++ b/btime.pas
@@ -138,7 +138,7 @@ end;
 \r
 function oletounix(t:tdatetime):tunixtimeint;\r
 begin\r
-  result := trunc(oletounixfloat(t));\r
+  result := round(oletounixfloat(t));\r
 end;\r
 \r
 function unixtoole(i:float):tdatetime;\r