今天需要写了一个elisp的函数，有关时间计算的，上网找了找，记录笔记如下，原文是GNU手册上的Time Calculations。

— 函数: time-less-p t1 t2

    如果时间值t1比t2小的话，这个函数返回真。

— 函数: time-subtract t1 t2

    这个函数计算出时间t1和t2之间的差值，即t1-t2，以相同的时间格式来显示。

— 函数: time-add t1 t2

    这个函数计算出时间t1和t2的和，其中的一个应该是时间差值而不是时间的绝对值。

              (time-add time (seconds-to-time seconds))

— 函数: time-to-days time

    This function returns the number of days between the beginning of year 1 and time.

— 函数: time-to-day-in-year time

    This returns the day number within the year corresponding to time.

— Function: date-leap-year-p year

    This function returns t if year is a leap year.

根据这个函数，如果我需要以“年-月-日”这样的格式打印出明天的时间，则只需要用如下代码即可：

(format-time-string “%4Y-%2m-%2d” (time-add (current-time) (seconds-to-time 86400)))