From 555c3c210bd8d681d3b485023926e55b8866eb79 Mon Sep 17 00:00:00 2001 From: beware Date: Sat, 3 Apr 2010 22:25:51 +0000 Subject: [PATCH] unixtoole changed to take input as float git-svn-id: file:///svnroot/lcore/trunk@88 b1de8a11-f9be-4011-bde0-cc7ace90066a --- btime.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/btime.pas b/btime.pas index 33b32d0..62b957d 100644 --- a/btime.pas +++ b/btime.pas @@ -53,7 +53,7 @@ function unixtimefloat_systemtime:float; function oletounixfloat(t:float):float; function oletounix(t:tdatetime):integer; -function unixtoole(i:integer):tdatetime; +function unixtoole(i:float):tdatetime; {$ifdef win32} function mmtimefloat:float; @@ -130,7 +130,7 @@ begin result := trunc(oletounixfloat(t)); end; -function unixtoole(i:integer):tdatetime; +function unixtoole(i:float):tdatetime; begin result := ((i)/86400)+daysdifference; end; -- 2.30.2