delphi时间转换为GMT格式

//时间转换为GMT格式
function DateTimeToGMT(Const DateTime: TDateTime): String;
begin

  Result := FormatDateTime(’ddd, dd mmm yyyy hh:mm:ss’,DateTime);

  Result := StringReplace(Result, ‘一月’, ‘Jan’, [rfReplaceAll]);

  Result := StringReplace(Result, ‘二月’, ‘Feb’, [rfReplaceAll]);

  Result := StringReplace(Result, ‘三月’, ‘Mar’, [rfReplaceAll]);