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

Date(1292291582263-0700)

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