Delphi で RFC822 の日付形式を TDateTime へ変換

Delphi でメールヘッダやXMLで使われる RFC822 の日付形式( Tue, 23 Jan 2018 13:50:00 +0900 みたいなの)を TDateTime へ変換

view plainprint?

1. uses IdGlobalProtocols; // IdGlobalProtocols を追加  
2. // :  
3. TimeStamp := StrInternetToDateTime('Tue, 23 Jan 2018 13:50:00 +0900');  

uses IdGlobalProtocols; // IdGlobalProtocols を追加
// :
TimeStamp := StrInternetToDateTime('Tue, 23 Jan 2018 13:50:00 +0900');