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 オブジェクトを利用する

1. function XmlDateTimeToDateTime(ADateTime: string): TDateTime;  
2. begin  
3.     with TXSDateTime.Create do begin  
4.         try  
5.             XSToNative(ADateTime);  
6.             Result := AsDateTime;  
7.         finally  
8.             Free;  
9.         end;  
10.     end;  
11. end;  

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