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/

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