首页 | 文章中心 | 下载中心
您当前的位置:齐新下载文章中心网络编程 → 文章内容 推荐:QQ最新版下载
本类热门文章
相关下载
asp 时间戳与时间格式转换
作者:佚名  来源:本站整理  发布时间:2020/1/27 2:59:26

减小字体 增大字体

'把标准时间转换为UNIX时间戳
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-01-01 00:00:00", ToUnixTime)
End Function
 
'把UNIX时间戳转换为标准时间
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-01-01 00:00:00")
    FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)
End Function
 
'调用方法:
'示例:ToUnixTime("2009-12-05 12:52:25", +8),返回值为1259988745 
'response.Write ToUnixTime("2009-12-05 12:52:25", +8)
'示例:FromUnixTime("1259988745", +8),返回值2009-12-05 12:52:25 
'response.Write FromUnixTime("1259988745", +8)
[] [返回上一页] [打 印]
文章评论 (评论内容只代表网友观点,与本站立场无关!)

用户名: 查看更多评论

分 值:100分 85分 70分 55分 40分 25分 10分 0分

内 容:

         (注“”为必填内容。) 验证码: 验证码,看不清楚?请点击刷新验证码

关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图