Мне не приходится с зонами боротся...

Sumo 01.10.2003 12:47

... поскольку все RSS, которые я использую [например с компьюленты] уже приведены к GMT.

... в конструкторе ...

# Сдвиг времени относительно Greenwich Mean Time (GMT). Для Москвы.
# Если сейчас "летнее время", то добавляем еще один час к $_GMTShift.
# Не учитывается, что перевод часов осуществляется в 2 часа ночи.
  $_GMTShift(3 + ^_isDaylightTime[])

... сам метод ...

## Преобразует $aDateString в объект типа date, учитывая GMT.
@convertDate[aDateString][lMatch;lMonth;lDat]
^if(def $aDateString){
  $lMonth[
    $.jan[1]
    $.feb[2]
    $.mar[3]
    $.apr[4]
    $.may[5]
    $.jun[6]
    $.jul[7]
    $.aug[8]
    $.sep[9]
    $.oct[10]
    $.nov[11]
    $.dec[12]
  ]
  $lMatch[^aDateString.match[\w+,\s+(\d+)\s+(\w+)\s+(\w+)\s+(\d+):(\d+):(\d+)]]
  $lDat[^date::create($lMatch.3;$lMonth.[^lMatch.2.lower[]];$lMatch.1;$lMatch.4;$lMatch.5;$lMatch.6)]
  $result[^date::create($lDat+$_GMTShift/24)]
}{
  $result[]
 }

В выходные наверное допишу учет зон...

---