unixtoole changed to take input as float

[lcore.git] / btime.pas

diff --git a/btime.pas b/btime.pas
index 33b32d0c899cde75cf523bb6e9b11cf367463528..62b957df864c8f31d33cc2b505f363e4670829ce 100644 (file)
--- a/btime.pas
+++ b/btime.pas
@@ -53,7 +53,7 @@ function unixtimefloat_systemtime:float;
 \r
 function oletounixfloat(t:float):float;\r
 function oletounix(t:tdatetime):integer;\r
 \r
 function oletounixfloat(t:float):float;\r
 function oletounix(t:tdatetime):integer;\r

-function unixtoole(i:integer):tdatetime;\r
+function unixtoole(i:float):tdatetime;\r

 \r
 {$ifdef win32}\r
 function mmtimefloat:float;\r
 \r
 {$ifdef win32}\r
 function mmtimefloat:float;\r


@@ -130,7 +130,7 @@ begin
   result := trunc(oletounixfloat(t));\r
 end;\r
 \r
   result := trunc(oletounixfloat(t));\r
 end;\r
 \r

-function unixtoole(i:integer):tdatetime;\r
+function unixtoole(i:float):tdatetime;\r

 begin\r
   result := ((i)/86400)+daysdifference;\r
 end;\r
 begin\r
   result := ((i)/86400)+daysdifference;\r
 end;\r