VB轉(zhuǎn)換UNIX時間戳的方法

2015/2/7 17:56:113205 閱讀

UNIX時間戳為：Utime
那么時區(qū)為0即為：
DateAdd("s",Utime, "1970-1-1 0:0:0")
北京時間即為：
DateAdd("h",8,DateAdd("s",Utime, "1970-1-1 0:0:0"))

標(biāo)準(zhǔn)函數(shù):
'把UNIX時間戳轉(zhuǎn)換為標(biāo)準(zhǔn)時間
'參數(shù)：intTime:要轉(zhuǎn)換的UNIX時間戳；intTimeZone：該時間戳對應(yīng)的時區(qū)
'返回值：intTime所代表的標(biāo)準(zhǔn)時間
'示例：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



PS：
Unix時間戳

Unix時間戳是從1970年1月1日 00:00:00開始所經(jīng)過的秒數(shù)，不考慮閏秒。
一個小時表示為UNIX時間戳格式為：3600秒；一天表示為UNIX時間戳為86400秒，閏秒不計(jì)算。在大多數(shù)的UNIX系統(tǒng)中UNIX時間戳存儲為32位。

下一條：kindeditor支持flv視頻播放方法

上一條：一個僅保留圖片src的函數(shù)