How to get seconds since epoch (1/1/1970) in VBA?

Question

How can I get seconds since epoch (1/1/1970) in VBA?

Answer 1

Here's a solution: http://vbcity.com/forums/t/5084.aspx

Answer 2

How about:

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

Answer 3

This should run faster than the DateDiff solution:

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