VPF::Как получить дату/время в заданном виде

wofs

Дата 19.10.2011, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

Собственно как получить на Delphi дату/время вида

Код


Sat, 30 Dec 2006 00:00:00 +0300

Если можно - пример, а то с FormatDateTime голову сломал, так не выходит.

Snowy

Дата 19.10.2011, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Это интернет GMT формат.
Поможет функция LocalDateTimeToGMT в модуле IdGlobal из состава Indy.
Никаких заморочек - просто скорми дататайм, получишь готовую строку.

wofs

Дата 19.10.2011, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

о, спасибо!!!

wofs

Дата 19.10.2011, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

наткнулся еще на функцию, может кому пригодится

Код


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;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »