From 8cccf85821f547f5cb8abb81b499e4bb0ffbacc4 Mon Sep 17 00:00:00 2001 From: beware Date: Sat, 5 Dec 2015 18:50:22 +0000 Subject: [PATCH] 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 --- btime.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.30.2