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

git-svn-id: file:///svnroot/lcore/trunk@144 b1de8a11-f9be-4011-bde0-cc7ace90066a

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
 \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
 end;\r
 \r
 function unixtoole(i:float):tdatetime;\r