VB6.0 系统时间转换成时间戳

'参数：strTime:要转换的时间；intTimeZone：该时间对应的时区   
'返回值：strTime相对于1970年1月1日午夜0点经过的秒数   
'示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值为1211511060
Dim ToUnixTime As String
Dim strTime As Date
Dim intTimeZone As String

strTime = Now
intTimeZone = 0
ToUnixTime = DateAdd("h", -intTimeZone, strTime)
ToUnixTime = DateDiff("s", "1970-1-1 0:0:0", ToUnixTime)

'把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