日付が何曜日、何日、年初から何日め、年初から何週めになるかを求める - lisp-cookbook-ja/common-lisp GitHub Wiki

日付と時刻

日付についての操作は、標準の組み合わせでも賄えますが、PerlのDate::Calc互換を目指したCLiki:date-calcようなライブラリもあり、日付についての関数がまとめられています。

日付が何曜日、何日、年初から何日め、年初から何週めになるかを求めるのは下記のように書けるでしょう。

;; Date::Calc
(multiple-value-bind (s m h day month year) 
    (decode-universal-time (get-universal-time))
  (declare (ignore s m h))
  (list 
   (date-calc:day-of-week year month day)
   (date-calc:week-number year month day)
   (date-calc:day-of-year year month day)))
;; Sun 25 Jan 2009 19:43:42 の場合
;=> (7 4 25)