VB轉換UNIX時間戳的方法

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

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

標準函數:
'把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



PS：
Unix時間戳

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

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

上一條：一個僅保留圖片src的函數