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;

推荐分享