X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/70e049261c2b49411fbc9cefc737bc18ee6c4365..51075d051580863ca073aa91883357410b358e40:/btime.pas?ds=sidebyside

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;