>Procedure DecodeTimeStamp(nTimestamp As Number) As Datetime > && see http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/filetimetodosdatetime.asp > nDate=Bitrshift(nTimestamp,16) > nTime=Bitand(nTimestamp,2^16-1) > nYear=Bitand(Bitrshift(nDate,9),2^8-1)+1980 > nMonth=Bitand(Bitrshift(nDate,5),2^4-1) > nDay=Bitand(nDate,2^5-1) > nHr=Bitand(Bitrshift(nTime,11),2^5-1) > nMin=Bitand(Bitrshift(nTime,5),2^6-1) > nSec=Bitand(nTime,2^5-1) >Return Datetime(nYear,nMonth,nDay,nHr,nMin,nSec)