本文整理自网络，侵删。
//时间转换为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]);
Result:= StringReplace(Result,'四月','Apr',[rfReplaceAll]);
Result:= StringReplace(Result,'五月','May',[rfReplaceAll]);
Result:= StringReplace(Result,'六月','Jun',[rfReplaceAll]);
Result:= StringReplace(Result,'七月','Jul',[rfReplaceAll]);
Result:= StringReplace(Result,'八月','Aug',[rfReplaceAll]);
Result:= StringReplace(Result,'九月','Sep',[rfReplaceAll]);
Result:= StringReplace(Result,'十月','Oct',[rfReplaceAll]);
Result:= StringReplace(Result,'十一月','Nov',[rfReplaceAll]);
Result:= StringReplace(Result,'十二月','Dec',[rfReplaceAll]);
Result:= StringReplace(Result,'星期日','Sun',[rfReplaceAll]);
Result:= StringReplace(Result,'星期一','Mon',[rfReplaceAll]);
Result:= StringReplace(Result,'星期二','Tue',[rfReplaceAll]);
Result:= StringReplace(Result,'星期三','Wed',[rfReplaceAll]);
Result:= StringReplace(Result,'星期四','Thu',[rfReplaceAll]);
Result:= StringReplace(Result,'星期五','Fri',[rfReplaceAll]);
Result:= StringReplace(Result,'星期六','Sat',[rfReplaceAll]);
Result:= Result + ' GMT';
end;
相关阅读 >>
Delphi tcxgrid的tcxgriddbtableview.viewdata.rows跟records有什么区别
Delphi xe6 使用intent启动活动并在android应用程序中获取返回值的示例
Delphi 2009 indy10 idhttp get 中文出现乱码的问题
更多相关阅读请进入《Delphi》频道 >>
