Delphi/C++ Builder XML形式の日付を TDateTime へ変換

XML形式の YYYY-MM-DDTHH:NN:SS+HH;NN(2010-07-27T14:20:00+09:00 みたいなの) を TDateTime(Double)へ変換

uses 節に XSBuiltIns を追加して、TXSDateTime オブジェクトを利用する

function XmlDateTimeToDateTime(ADateTime: string): TDateTime;
begin
    with TXSDateTime.Create do begin
        try
            XSToNative(ADateTime);
            Result := AsDateTime;
        finally
            Free;
        end;
    end;
end;