excel - Excel VBA：将日期字符串转换为 Unix 时间戳

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

Answer 2

为确保准确的完整往返行程，请向 DateDiff 和 DateAdd 函数添加时间戳：

时间戳日期：

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

迄今为止的时间戳：

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