delphi DateTimeToGMT GMT时间与TDateTime转换

本文整理自网络，侵删。

 
uses  
  DateUtils,;  
  
function DateTimeToGMT(const ADate:TDateTime):string;  
const  
  WEEK:array[1..7] of PChar = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');  
  MonthDig:array[1..12] of PChar =  
    ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');  
var  
  wWeek,wYear,wMonth,wDay,wHour,wMin,wSec,wMilliSec:Word;  
  sWeek,sMonth:string;  
begin  
  DecodeDateTime(ADate,wYear,wMonth,wDay,wHour,wMin,wSec,wMilliSec);  
  wWeek := DayOfWeek(ADate);  
  sWeek  := WEEK[wWeek];  
  sMonth := MonthDig[wMonth];  
  Result := Format('%s, %.2d %s %d %.2d:%.2d:%.2d GMT',[sWeek,wDay,sMonth,wYear,wHour,wMin,wSec]);  
end;  

//sDate:='Sat, 02 Sep 2017 03:08:12 GMT';  
  sDate:=DateTimeToGMT(TTimeZone.Local.ToUniversalTime(now())); 
 

相关阅读 >>

Delphi如何删除数据库重复记录(4种方法)

Delphi 取得当前进程占用内存及线程数

Delphi 检测进程是否存在函数

encryptit.pas

Delphi 自定义产生随机字符串函数

Delphi 如何通过进程句柄判断该进程是否已退出？

Delphi 查看字符串在不同编码(ascii、unicode、utf7、utf8、default、bigendianunicode)下的 hex

Delphi 根据经纬度计算地球上两点之间的距离

fmsoft_unigui个文件说明

Delphi发送邮件函数

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

转载请注明出处：木庄网络博客 » delphi DateTimeToGMT GMT时间与TDateTime转换