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