欢迎各位兄弟 发布技术文章

这里的技术是共享的

You are here

ASP 如何获取时间戳

最佳答案
 

'把标准时间转换为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
 

普通分类: