You are here
ASP 如何获取时间戳
星期五, 2017-11-10 07:58 — adminshiping1
最佳答案
'把标准时间转换为UNIX时间戳'参数：strTime:要转换的时间；intTimeZone：该时间对应的时区 '返回值：strTime相对于1970年1月1日午夜0点经过的秒数 '示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值为1211511060
1 2 3 4 5 6 | 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
1 2 3 4 5 6 7 8 9 | 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 |
普通分类: