Excel VBA : Convert a date string to a Unix timestamp

Question

Excel VBA:如何转换日期字符串
“2012-08-20”到时间戳:1345438800
我需要将 1345438800 作为长数据类型值存储在单元格中。

Answer 1

日期到时间戳:

Public Function toUnix(dt) As Long
    toUnix = DateDiff("s", "1/1/1970", dt)
End Function

迄今为止的时间戳:

Public Function fromUnix(ts) As Date
    fromUnix = DateAdd("s", ts, "1/1/1970")
End Function