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 xe7 /xe7 update1/xe8 安装失败 只能装到27%

Delphi 杀系统进程代码

Delphi调试技巧

Delphi 生成并替换txt里的内容

Delphi-idhttp-utf-8编码乱码解决

Delphi shellexecute 打开文件夹

Delphi中设置系统时间方法

Delphi xe 减少程序体积!

Delphi 使控件变成圆角的方法

Delphi timage保存图片到stream及从stream中取图片

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...