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

["Seiya Suda" <seiya.suda@xxxxxxxxx>]

こんばんは。

さっそくコピペでやってみましたら次のようになりました。

(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>
> 
>