Something like: (format-time-string (car org-time-stamp-formats) (time-add (current-time) (seconds-to-time (* days 60 60 24)))) Sylvain.