Emacsで日付計算 改

逆引きEmacs Lisp - 文字列 Emacs Lisp デバッグ — ありえるえりあ emacsで時刻計算 - まーのメモ

3番目のリンクを参考に、ちょっと改造して 今日から100日前は何月何日とか、100日後は何月何日とか そういうのを作ってみた。

;; 日前計算

(defun specify-date(arg)
  (interactive "sDay")
  (setq number (string-to-number arg))
  (setq time (decode-time (current-time))) ;; timeに現在時刻をデコードしてセット
  (setf (elt time 3) (+ (elt time 3) number)) ;; 日付をnumber日後にする
  (decode-time (apply 'encode-time time)) ;; number日後の日付をデコードして取得
  (message (format-time-string "%Y/%m/%d" (apply 'encode-time time))) ;; %Y/%m/%d形式にして取得
  )