何日後、何日前⧸何ヶ月後、何ヶ月前の日付を求める - lisp-cookbook-ja/common-lisp GitHub Wiki

日付と時刻

何日後、何日前/何ヶ月後、何ヶ月前の日付を求める

Universal Timeは秒数を表す数値なので、加減算は自由にできます。

;; 2000/1/1の100日後を求める
(+ (encode-universal-time 0 0 0 1 1 2000)
   (* 100 24 60 60))
;=> 3164281200

(metatilities:date-string-brief 3164281200)
"4-10-2000"