X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/935f8f3fc8915049b0bd70fdb9050bbd1ca65b7c..555c3c210bd8d681d3b485023926e55b8866eb79:/btime.pas?ds=inline 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;