From: beware <beware@bircd.org>
Date: Sat, 5 Dec 2015 18:50:22 +0000 (+0000)
Subject: oletounix should round so seconds do not go one off in conversion
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/8cccf85821f547f5cb8abb81b499e4bb0ffbacc4

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 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;