如何获得自VBA时代(1970年1月1日)以来的秒数？

Question

我怎样才能在VBA(1970年1月1日)中获得秒数？

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