本文整理自网络,侵删。
function NowGMT: TDateTime;var ST: TSystemTime;begin // This Windows API function gets system time in UTC/GMT // see http://msdn.microsoft.com/en-us/library/ms724390 GetSystemTime(ST); Result := SystemTimeToDateTime(ST);end;
function RFC1123DateStamp: string;const // Pattern to create RFC1123 date formats cRFC1123Pattern = 'ddd, dd mmm yyyy HH'':''nn'':''ss ''GMT''';begin Result := FormatDateTime(cRFC1123Pattern, NowGMT);end;
相关阅读 >>
Delphi获取dos命令行输出函数 运行cmd命令并获取结果
更多相关阅读请进入《Delphi》频道 >>