elisp時間で指定された月の日数を取得するにはどうすればよいですか？

Question

elispでは（3つの整数の形で）時間があり、デコード時を使って月を得ることができます。私が得たいのは、その月と年の日数で、自分で書くのではなくelispの関数を使っています。

すなわち：

(defun days-in-month-at-time(t) 
    ; Figure out month and year with decode-time 
    ; return number of days in that month 
) 

Answer 1

(require 'timezone) 

(defun days-in-month-at-time (time) 
    "Return number of days in month at TIME." 
    (let ((datetime (decode-time time))) 
    (timezone-last-day-of-month (nth 4 datetime) (nth 5 datetime)))) 

Answer 2

これが優れているように、タイムゾーンがすべての最近のEmacsのバージョン 編集中ではないようですので、ルックス：申し訳ありませんが、あなただけのタイムゾーンを必要とする必要がある、またはカレンダーによってあなたがこの答えを使うのか、それとも他の答えを使うのか。

(defun days-in-month-at-time (time) 
    "Return number of days in month at TIME." 
    (let ((datetime (decode-time time))) 
    (calendar-last-day-of-month (nth 4 datetime) (nth 5 datetime))))