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;

来源：https://www.cnblogs.com/hnxxcxg/p/11040398.html