X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/70e049261c2b49411fbc9cefc737bc18ee6c4365..8cccf85821f547f5cb8abb81b499e4bb0ffbacc4:/btime.pas?ds=inline

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