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 idhttp 实战用法(tidhttpex)

Delphi 运行clsid文件

Delphi 通�^窗口句柄或窗口标题得到进程句柄

Delphi 如何将memo或richedit保存为utf 8文本文件?

Delphi中sendmessage给一个edit控件发送wm_settext消息

Delphi实现使用tidhttp控件向https地址post请求

Delphi sqlite incomplete input 错误

Delphi xe8 numberbox使用方法及存在的问题

Delphi 如何使用 ppchar

Delphi 在指定图片上绘制透明文字

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...