Convertir JSON Jusqu'à la date Format JJ / MM / AAAA?
-
24-10-2019 - |
Question
Mon client reçoit une feuille de calcul avec un certain nombre de colonnes, l'une étant une « date ». Seule la date se révèle être formaté comme Date(1292291582263-0700)
(une date JSON il semble).
Je dois convertir et travailler avec cette date JSON au format MM / JJ / AAAA, ailleurs dans le code de cette feuille de calcul (VBA).
Quelqu'un sait comment analyser et convertir ce format de date JSON dans un format MM / JJ / AAAA? J'ai lu beaucoup de solutions sur SO qui sont en Javascript, C # ou ASP.NET, etc, mais tout ce que je dois travailler avec Excel est 2010 et le code VBA pour ce projet . Y at-il moyen d'arriver à un format lisible que j'ai besoin?
La solution
milliseconde temps Epoch avec un décalage de +/-?
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