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读取android设备联系人.Delphixe6中编译通过

Delphi xe10 android 界面设计-个人心得

Delphi xe增强的rtti妙用－－动态创建包中的窗口类

Delphi xe5 安卓设置屏幕横屏竖屏

Delphi 获取所有磁盘分区另类方法

Delphi有用的函数extractfilename、extractfilepath

Delphi idhashmessagedigest md5用法

Delphi中ns和ms时间的获取方法

Delphi 调用golang dll

Delphi 间隔时间

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

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