本文整理自网络,侵删。
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 isleapyear、isinleapyear - 是否是闰年
Delphi xe intraweb 程序在iis下的发布详细教程
更多相关阅读请进入《Delphi》频道 >>