наткнулся еще на функцию, может кому пригодится
| Код |
function RFC822Date(const d: TDateTime): string;
const // as defined by Standard for the Format of ARPA Internet Text Messages,
// section 5.1: http://www.sendmail.org/rfc/0822.html#5
Days : Array [1..7] of string =
('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
Months: Array [1..12] of string =
('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct',
'Nov', 'Dec');
var
dd, mm, yy, hh, mn: Word;
tz : TIME_ZONE_INFORMATION;
dt: TTime;
gmt: string;
begin
DecodeDate(d, yy, mm, dd);
// compute GMT bias
GetTimeZoneInformation( tz );
hh := abs(tz.Bias div 60); // hours
mn := abs(tz.Bias mod 60); // minutes
dt := EncodeTime(hh, mn, 0, 0);
if ( (tz.Bias div 60) < 0) then
gmt := '+' + FormatDateTime('hhnn', dt)
else
gmt := '-' + FormatDateTime('hhnn', dt);
Result := Days[ DayOfWeek(d) ] + ', ' +
IntToStr( dd ) + ' ' +
Months[ mm ] + ' ' +
IntToStr( yy ) + ' ' +
FormatDateTime('hh:nn:ss', d) + ' ' + gmt;
end;
|
|