DateTimeToUnix/UnixToDateTime 對接時間轉換

問題，通過毫秒數來解析出時間：（很多對接的時候經常需要用到）

<?php
$MyJson = '{"jingdong_vas_subscribe_get_responce":{"code":"0","item_code":"FW_GOODS-2236-1","end_date":1495123200000}}';
$MyArr = json_decode($MyJson, true);
//print_r($MyArr);
echo ($MyArr['jingdong_vas_subscribe_get_responce']['end_date'] / 1000).'<br/>'; 
$top_session_end = date('Y-m-d H:i:s', $MyArr['jingdong_vas_subscribe_get_responce']['end_date'] / 1000);echo $top_session_end; 
?>

輸出：

1495123200
2017-05-19 00:00:00

--------------------------------

那么利用delphi 如何做到呢，原來delphi官方you現成的函數；

procedure TForm13.btn1Click(Sender: TObject);
beginmmo1.Lines.Add(FormatDateTime('yyyy-mm-dd hh:mm:ss',UnixToDateTime(1495123200000 div 1000, true)));mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd hh:mm:ss',UnixToDateTime(1495123200000 div 1000, false)));mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd hh:mm:ss',UnixToDateTime(1495123200000 div 1000)));//默認第二個參數為True
end;

?

?

UnixToDateTime 有兩個參數，第二個參數如果不加false的話會導致和實際中國的時間相差8小時。

-------------------------------------------------------------------------------------------------

以下是網上的一些說明，有些大牛也為其煩悶。

來自：http://www.raysoftware.cn/?p=295

?

來自：http://ldf10269.blog.163.com/blog/static/388325652014627740539/

-------------------------------------------------------------------------------------------