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 10 seattle中录制音频

Delphi firedac 下的 sqlite [6] - 加密

Delphi 清除字符串两边空格或指定字符

Delphi 双击tmemo选择光标所在行

Delphi实现注册表的操作

Delphi comobj调用wmplayer播放音乐

Delphi内联汇编的一点心得

Delphi 窗口全屏

Delphi application.processmessages的作用

Delphi memo 过滤重复字符 indexof

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

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