将JSON日期转换为MM / DD / YYYY格式？

问题描述

| 我的客户收到一个包含许多列的电子表格，其中一个列是“日期”。事实证明只有日期格式为

Date(1292291582263-0700)

（似乎是JSON日期）。 我需要转换并使用MM / DD / YYYY格式的JSON日期，以及此电子表格的代码（VBA）中的其他位置。 有人知道如何解析此JSON日期格式并将其转换为MM / DD / YYYY格式吗？我已经阅读了很多关于Java，C＃或ASP.NET等的SO解决方案，但是我需要使用的就是该项目的Excel 2010和VBA代码。是否可以根据需要获得一种可读格式？     

解决方法

毫秒时间（带有+/-偏移量）？

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