如何转换叽叽喳喳api时间戳到unix时间在vba excel

我正在尝试将一个Twitter时间戳string转换为Unix时间(自纪元以来的秒数)。 我一直在寻找一段时间,但无法find任何有效的工作。 任何人都知道如何将“Mon Sep 24 03:35:21 +0000 2012”转换为unix时间? 或者,如果没有,与一个SQLite数据库时间函数?

使用你的Mon Sep 24 03:35:21 +0000 2012作为一个string,这将返回一个Unix(aka POSIX)date。

 Dim tt As String, ut As Long tt = "Mon Sep 24 03:35:21 +0000 2012" ut = ((CDate(Mid(tt, 5, 6) & ", " & Right(tt, 4) & Mid(tt, 11, 9)) + (IIf(Mid(tt, 21, 1) = Chr(45), -1, 1) * TimeSerial(Mid(tt, 22, 2), Mid(tt, 24, 2), 0))) - 25569) * 86400 Debug.Print ut 

您提供的样本的结果将是1348457721。

编辑:

修改上面的代码来说明正负UTC时区偏移量。