[xyzzy:09153] Re: format-date-string の時間

[IMAI Takeo <usitukai@xxxxxxxxxxxxxx>]

たけをです。

 Sudaさんありがとうございます。
 私のところでは、まだ根本的には解決はしてないのですが、一旦
ユニバーサル形式の時間をデコードして、再びエンコードすると、
なぜか回避できました。

 一体何が原因なんでしょう…
---
(defun comp-time ()
  (insert (format-date-string "%H:%M")) ; format-date-string使用
  (insert "\n")
  (let (s m h)
    (multiple-value-setq (s m h) (get-decoded-time)) ; 不使用
    (insert (format nil "~D:~D" h m)))
  (insert "\n")
  (let (sec min hour day mon year) ; 回避
    (multiple-value-setq (sec min hour day mon year) (get-decoded-time))
    (insert (format-date-string "%H:%M" (encode-universal-time sec min hour day mon year)))))

(comp-time)
22:34
21:34
21:34
t

---
IMAI Takeo <usitukai@xxxxxxxxxxxxxx>



2005年5月22日(日)[22:01:13] に ”[xyzzy:09152] Re: format-date-string の時間” で
Seiya Suda さんは書いたのであった。

> こんばんは。
> 
> さっそくコピペでやってみましたら次のようになりました。
> 
> (defun comp-time ()
>   (insert (format-date-string "%H:%M")) ; format-date-string使用
>   (insert "\n")
>   (let (s m h)
>     (multiple-value-setq (s m h) (get-decoded-time)) ; 不使用
>     (insert (format nil "~D:~D" h m))))
> (comp-time)
> 20:58
> 20:58
> t
> 
> xyzzyのバージョンは0.2.2.234、OSはWin Meです。
> 
> ------------------
> 須田誠也(Seiya Suda)
> seiya.suda@xxxxxxxxx
> http://homepage2.nifty.com/seiya-suda/
> 
> 
> > -----Original Message-----
> > From: IMAI Takeo [mailto:usitukai@xxxxxxxxxxxxxx] 
> > Sent: Sunday, May 22, 2005 8:03 PM
> > To: xyzzy@xxxxxxxxxxxx
> > Cc: IMAI Takeo
> > Subject: [xyzzy:09151] format-date-string の時間
> > 
> > 
> > たけをと申します。
> > 
> >  自分の環境で、format-date-string で出力される時間が1時間狂って
> > しまうのですが、原因がよくわかりません。
> > 
> >  ためしに、以下のような関数を作って *scratch*で評価してみたのですが、
> > ---
> > (defun comp-time ()
> >   (insert (format-date-string "%H:%M")) ; format-date-string使用
> >   (insert "\n")
> >   (let (s m h)
> >     (multiple-value-setq (s m h) (get-decoded-time)) ; 不使用
> >     (insert (format nil "~D:~D" h m))))
> > 
> > (comp-time) ←評価
> > 19:58
> > 18:58
> > t
> > ----
> > となりました。下のほうが正しい時間です。xyzzyの右下に出る時間と
> > も一致してます。
> > 
> >  xyzzyのバージョンは0.2.2.234、OSはWinXP SP1です。
> >  どなたか原因がわかる方いらっしゃいますか？
> > 
> > ---
> > IMAI Takeo <usitukai@xxxxxxxxxxxxxx>