Как правильно перевести из Unix timestamp в читаемый вариант на Delphi?

Question

[RadxBook]

И так, парсим Json и выдираем из него время, к примеру 1403706896900.
Используем две функции DateTimeToStr(UnixToDateTime(1403706896900)) и получаем 13.09.46451 14:28:20
На сайте, с которого тянем json (earthquake.usgs.gov/earthquakes/feed/v1.0/summary/... данное время выводится как 25.06.2014 14:34:56
Разница в 6 минут 34 секунды и кучу лет

Гуглим и находим два сайта
www.onlineconversion.com/unix_time.htm (результат Wed, 13 Sep 46451 14:28:20 GMT)
www.epochconverter.com (результат Wed, 25 Jun 2014 14:34:56 GMT)
Разница та же.

Answer 1

[Vit]

В яваскрипте он не в секундах, а в милисекундах. Вот и в вашем джейсоне так же. Разделите число на 1000 сначала, целую часть возьмите и потом кормите его DateTimeToStr

Comments

[RadxBook]

спасибо