时间戳和时间的转换

'参数：strTime:要转换的时间；intTimeZone：该时间对应的时区       
'返回值：strTime相对于1970年1月1日午夜0点经过的秒数       
'示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值为1211511060       
Function ToUnixTime(strTime, intTimeZone)       
    If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now       
    If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0       
     ToUnixTime = DateAdd("h",-intTimeZone,strTime)       
     ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)       
End Function      
      
'把UNIX时间戳转换为标准时间       
'参数：intTime:要转换的UNIX时间戳；intTimeZone：该时间戳对应的时区       
'返回值：intTime所代表的标准时间       
'示例：FromUnixTime("1211511060", +8)，返回值2008-5-23 10:51:0       
Function FromUnixTime(intTime, intTimeZone)       
    If IsEmpty(intTime) Or Not IsNumeric(intTime) Then      
         FromUnixTime = Now()       
        Exit Function      
    End If      
    If IsEmpty(intTime) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0       
     FromUnixTime = DateAdd("s", intTime, "1970-1-1 0:0:0")       
     FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)       
End Function