本文整理自网络，侵删。
//时间转换为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 2009 新增单元 character isletter、isupper、islower、isdigit、isnumber
Delphi api �c multibytetowidechar的用法
Delphi decodedate、decodetime ... decodedatetime ... 分解时间
更多相关阅读请进入《Delphi》频道 >>
