DELPHI解析JSON格式化的日期

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

DELPHI解析JSON格式化的日期

json返回的日期是 /Date(1560355200000)/ 这样的格式。

这个1560355200000，是指1970年以后的秒数。

DELPHI如何解析这种日期格式？

网上找到的多是JAVASCRIPT的代码，没关系，DELPHI可以执行JAVASCRIPT函数。

uses comobj;var js: string=
'function jsondate(jsonDate) {'+
'try {'+
'var date = new Date(parseInt(jsonDate.replace("/Date(", "").replace(")/", ""), 10));'+
'var month = date.getMonth() + 1 < 10 ? "0" + (date.getMonth() + 1) : date.getMonth() + 1;'+
'var day = date.getDate() < 10 ? "0" + date.getDate() : date.getDate();'+
'var hours = date.getHours();'+
'var minutes = date.getMinutes();'+
'var seconds = date.getSeconds();'+
'var milliseconds = date.getMilliseconds();'+
'return date.getFullYear() + "-" + month + "-" + day + " " + hours + ":" + minutes + ":" + seconds + "." + milliseconds;'+
'} catch (ex) {'+
'return "";'+
'}'+
'}';function RunJs(const JsCode, JsVar: string): string;
var
script: OleVariant;
begin
try
script := CreateOleObject('ScriptControl');
script.Language := 'JavaScript';
script.ExecuteStatement(JsCode);
Result := script.Eval(JsVar);
except
Result := '';
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := RunJs(js, Format('jsondate("%s")', ['/Date(1560355200000)/']));
end;