From: beware Date: Sat, 3 Apr 2010 22:25:51 +0000 (+0000) Subject: unixtoole changed to take input as float X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/555c3c210bd8d681d3b485023926e55b8866eb79 unixtoole changed to take input as float git-svn-id: file:///svnroot/lcore/trunk@88 b1de8a11-f9be-4011-bde0-cc7ace90066a --- 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;