将 Facebook created_time 转换为 Delphi 中的 TDateTime

Question

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

数组项：

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

顺便说一下 Facebook returns 其他格式的日期时间，但我很想学习这个。

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;