DELPHI解析JSON格式化的日期

DELPHI解析JSON格式化的日期

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

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

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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

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;