delphi 获取国外格式日期时间

本文整理自网络，侵删。

 
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;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text:=RFC1123DateStamp;

end;
 

相关阅读 >>

Delphi 10.4 新变化：定制拖管记录（结构）类型

Delphi windows 编程[23] - 快捷键资源

Delphi 利用for循环自我复制到全盘用timer监控

Delphi 使用 tedgebrowser 组件

Delphi windows 编程[7] - wm_create 消息

Delphi sccoloredid，星际争霸彩色 id 修改器 v0.2.0，支持 windows vista

Delphi webbrowser设置自己定义user-agent

最简单的Delphi驱动结束进程

Delphi结构体指针的使用

winapi 字符及字符串函数(3): charupper - 字符或字符串转大写

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

转载请注明出处：木庄网络博客 » delphi 获取国外格式日期时间