vba - VBAでエポック(1/1/1970)からの秒数を取得するには?

Question

VBAでエポック (1/1/1970) からの秒数を取得するにはどうすればよいですか?

Answer 1

どうですか：

datediff("s",#1970/1/1#,now())

Answer 2

これは、DateDiffソリューションよりも高速に実行されるはずです。

Private Function Long2Date(lngDate As Long) As Date
    Long2Date = lngDate / 86400# + #1/1/1970#
End Function

Private Function Date2Long(dtmDate As Date) As Long
    Date2Long = (dtmDate - #1/1/1970#) * 86400
End Function

Answer 3

ここに解決策があります：http://vbcity.com/forums/t/5084.aspx

Function UnixTime() As Variant
    'The first parameter determines how the 
    ' difference will be measured in i.e. "S" for seconds
    UnixTime = DateDiff("S", "1/1/1970", Now())
End Function