X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/1a8d0bce39fe4edf7443bde884fefe78412fe521..8cccf85821f547f5cb8abb81b499e4bb0ffbacc4:/btime.pas

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;