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);beginmemo1.text:=RFC1123DateStamp;
end; 

相关阅读 >>

cvcode.pas

Delphi 线程中修改主窗体的控件内容

Delphi 单击按钮左键弹起菜单

Delphi将dbgrid数据导出到excel表中

Delphi通过窗口标题结束指定进程函数

Delphi从excel读取数据存入数据库demo

Delphi查找程序坐标 获取鼠标 模拟鼠标

Delphi dll 字符串传递例子

Delphi 运行clsid文件

Delphi 用dll实现插件的简单演示

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