added ISO style date/time and UTC date/time strings, add comments to document output...

git-svn-id: file:///svnroot/lcore/trunk@119 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/btime.pas b/btime.pas
index e0b0c4bde6059feade1a457b8da0523a6d9b83c5..2a4b2676797170cd5bdeab82b962d73f38ece945 100644 (file)
--- a/btime.pas
+++ b/btime.pas
@@ -50,8 +50,10 @@ procedure gettimezone;
 procedure timehandler;\r
 procedure init;\r
 \r
 procedure timehandler;\r
 procedure init;\r
 \r

-function timestring(i:tunixtimeint):string;\r
-function timestrshort(i:tunixtimeint):string;\r
+function timestring(i:tunixtimeint):string;      // Wednesday August 15 2012 -- 16:21:09 +02:00\r
+function timestrshort(i:tunixtimeint):string;    // Wed Aug 15 16:21:09 2012\r
+function timestriso(i:tunixtimeint):string;      // 2012-08-15 16:21:09\r
+function timestrisoutc(i:float):string;          // 2012-08-15T14:21:09.255553Z\r

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


@@ -688,6 +690,40 @@ begin
   timezonestr;\r
 end;\r
 \r
   timezonestr;\r
 end;\r
 \r

+function timestriso(i:tunixtimeint):string;\r
+var\r
+  y,m,d,h,min,sec,ms:word;\r
+  t:tdatetime;\r
+begin\r
+  t := unixtoole(i+timezone);\r
+  decodedate(t,y,m,d);\r
+  decodetime(t,h,min,sec,ms);\r
+  result := inttostr(y)+'-'+inttostr(m div 10)+inttostr(m mod 10)+'-'+inttostr(d div 10)+inttostr(d mod 10)+' '+inttostr(h div 10)+inttostr(h mod 10)+':'+inttostr(min div 10)+inttostr(min mod 10)+':'+inttostr(sec div 10)+inttostr(sec mod 10);\r
+end;\r
+\r
+function timestrisoutc(i:float):string;\r
+var\r
+  y,m,d,h,min,sec,ms:word;\r
+  t:tdatetime;\r
+  fr:float;\r
+begin\r
+  t := unixtoole(i);\r
+  decodedate(t,y,m,d);\r
+  decodetime(t,h,min,sec,ms);\r
+  result := inttostr(y)+'-'+inttostr(m div 10)+inttostr(m mod 10)+'-'+inttostr(d div 10)+inttostr(d mod 10)+'T'+inttostr(h div 10)+inttostr(h mod 10)+':'+inttostr(min div 10)+inttostr(min mod 10)+':'+inttostr(sec div 10)+inttostr(sec mod 10);\r
+  fr := frac(i);\r
+\r
+  result := result + '.'+\r
+  inttostr(trunc(fr*10) mod 10)+\r
+  inttostr(trunc(fr*100) mod 10)+\r
+  inttostr(trunc(fr*1000) mod 10)+\r
+  inttostr(trunc(fr*10000) mod 10)+\r
+  inttostr(trunc(fr*100000) mod 10)+\r
+  inttostr(trunc(fr*1000000) mod 10)+'Z';\r
+\r
+end;\r
+\r
+\r

 procedure init;\r
 begin\r
   {$ifdef win32}timebeginperiod(1);{$endif} //ensure stable unchanging clock\r
 procedure init;\r
 begin\r
   {$ifdef win32}timebeginperiod(1);{$endif} //ensure stable unchanging clock\r