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]);
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测试数据库连接时间

Delphi程序带参数运行

Delphi让listbox实现即指即显功能

Delphi二分查找算法(预排序数组的查找)

Delphi编写dll(以及静态和动态方式调用)

Delphi 在ie上增添一个按钮

Delphi 屏幕渐变效果的源代码

Delphi 跳出for循环

Delphi 中文字符串截取

Delphi编程获取系统当前进程、窗口句柄、文件属性

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 时间转换为GMT格式