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;
 

相关阅读 >>

Delphi 用ini记录combobox的itemindex

Delphi 安卓如何获取当前系统语言

Delphi 苹果系统弹出链接

Delphi 编写的一个感染文件夹的小病毒

Delphi 调用dos nbtstat 并获得结果

Delphi 获取系统时间,获取系统年月日,时分秒

Delphi 从 exe 或 dll 中获取图标的函数

Delphi 获取网卡mac代码可用2020.01.22

Delphi 如何解析网址？

Delphi如何获取qq2010聊天窗口句柄

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

转载请注明出处：木庄网络博客 » Delphi 时间年月日，星期