将JSON日期转换为mm/dd/yyyy格式？

Question

我的客户收到一个带有许多列的电子表格，其中一列是“日期”。只有日期格式为 Date(1292291582263-0700) （似乎是JSON的日期）。

我需要在此电子表格代码（VBA）的其他地方转换并使用mm/dd/yyyy格式使用此JSON日期。

有谁知道如何解析和将此JSON日期格式转换为mm/dd/yyyy格式？我已经阅读了很多解决方案，因此在JavaScript，C＃或ASP.NET等中 我只需要与此项目一起工作的是Excel 2010和VBA代码. 。是否可以根据需要达到可读格式？

Answer 1

毫秒时代的时间+/-偏移？

Const test = "1292291582263-0700"

Dim dt As String: dt = Left$(test, 13)
Dim off As String: off = Mid$(test, 14)

Dim d As Date: d = DateAdd("s", CCur(dt) / 1000, "01/01/1970")
Debug.Print d
<<< 14/12/2010 01:53:02 

d = DateAdd("h", Left$(off, 3), d)
d = DateAdd("n", Right$(off, 2), d)
Debug.Print d
<<< 13/12/2010 18:53:02