facebook - 在 Delphi 中将 Facebook created_time 转换为 TDateTime

Question

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

数组项:

 {
         "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;