【開発環境】
WindowsXP Pro SP3/Visual Basic 6.0 SP6
UNIXTIMEから時計日時への変換関数をご存知の方いらっしゃいますか?
> UNIXTIME
これは通常、「1970年1月1日0時0分0秒からの経過秒数」で管理される値なので
Dim UNIXTIME As Long
UNIXTIME = 1203704998
Dim dt As Date
dt = DateAdd("s", UNIXTIME, #1/1/1970#)
のようにして変換できるかと。
# 逆変換は、DateDiff 関数で。
ありがとうございます。解決しました。
Public Function UNIXTIME_TO_WINDOWSTIME(lngUnixTime As Long) As Date
UNIXTIME_TO_WINDOWSTIME = DateAdd("s", lngUnixTime, CDate("1970/1/1"))
End Function
ツイート | ![]() |