Convertire JSON Alla data MM / DD / YYYY formato?

Question

Il mio cliente riceve un foglio di calcolo con un numero di colonne, uno è una "data". Solo la data risulta essere formattato come Date(1292291582263-0700) (una data JSON sembra).

Ho bisogno di convertire e lavorare con questa data JSON in formato MM / DD / YYYY, altrove in codice di questo foglio (VBA).

Qualcuno sa come analizzare e convertire questo formato di data JSON in un formato MM / DD / YYYY? Ho letto un sacco di soluzioni, in modo che siano in Javascript, C # o ASP.NET, ecc, ma tutto quello che ho di lavorare con è Excel 2010 e codice VBA per questo progetto . C'è modo di arrivare ad un formato leggibile come ho bisogno?

Answer 1

tempo Millisecondo Epoch con un offset di +/-?

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