Преобразовать дату в формат MM/DD/YYYY?
-
24-10-2019 - |
Вопрос
Мой клиент получает электронную таблицу с несколькими столбцами, один из которых является «датой». Только дата оказывается отформатирована как Date(1292291582263-0700)
(дата JSON кажется).
Мне нужно преобразовать и работать с этой датой JSON в формате MM/DD/YYYY, в другом месте в коде электронной таблицы (VBA).
Кто -нибудь знает, как проанализировать и преобразовать этот формат даты JSON в формат MM/DD/YYYY? Я прочитал много решений, которые находятся в JavaScript, C#, или ASP.NET и т. Д. Все, с чем мне нужно работать, это Excel 2010 и VBA Code для этого проекта. Анкет Есть ли способ прийти к читаемому формату, как мне нужно?
Решение
Millisecond Epoch Time с +/- смещением?
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
Не связан с StackOverflow