在Delphi中将Facebook created_time转换为TDateTime

Question

我在我的应用程序中使用Facebook图形API。 Facebook API返回一个对象数组作为响应。对于数组中的每个项目，都有一个对象 created_time ，表示发布的时间。我需要将该datetime转换为Delphi TDateTime，以便我可以使用mm / dd // yy hh：mm：ss格式时间。

ArrayItem：

 {
         "created_time": "2015-10-12T01:56:25+0000",
         "link": "http://exampleeeeee.com",
         "id": "349561906753_10154021323131754"
      }

顺便说一句，Facebook也以其他格式返回日期时间，但我很想知道这一点。

Answer 1

日期格式为ISO 8601，您可以使用XSBuiltIns单元中的XMLTimeToDateTime功能对其进行转换。

uses
  XSBuiltIns;

procedure TForm1.FormCreate(Sender: TObject);
var
  ISO8601StrA, ISO8601StrB: String;
  Dt: TDateTime;
begin
  ISO8601StrA := '2015-10-12T01:56:25+0000';
  Dt := XMLTimeToDateTime(ISO8601StrA);
  ISO8601StrB := DateTimeToXMLTime(Dt, False);
end;