Excel VBA：将datestring转换为Unix时间戳

Excel VBA：如何转换datestring
“2012-08-20”到时间戳：1345438800
我需要在单元格中存储1345438800作为长的数据types值。

Answer 1

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