<%
'=========================================================
'把标准时间转换为UNIX时间戳
'参数：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
%>
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
