在Org-Mode-table中使用自定义elisp函数进行计算
UPDATE 2015-06-17: 在下面的评论中, Will指出若在表格中使用正确的日期格式([yyyy-mm-dd]而不是yyyy-mm-dd), Org会自动为你计算时间差. Neato! 下面是Will的原话:
Hi Sacha. 你知道吗,Org允许你直接针对(inactive或active)timestamp作运算? 当两个时间戳之间的time部分不一致时,它甚至能给你一个精确的小数天数.: | Start | End | Interval | |------------------------+------------------------+----------| | [2015-06-16 Tue] | [2015-06-23 Tue] | 7 | | <2015-06-13 Sat> | <2015-06-15 Mon> | 2 | | [2015-06-10 Wed 20:00] | [2015-06-17 Wed 08:00] | 6.5 | #+TBLFM: $3=$2 - $1
下面是我之前的复杂做法… =)
-—
最近我写了一片使用Org Mode table计算购买总量y 的文章. 经过再三开率, 还是觉得直接在org mode table中使用Emacs Lisp 函数来计算会比写个函数来处理并输出整个表格要更容易也更灵活一些.
首先,我们需要定义一个函数用来计算两个日期之间(包括这两个日期)的间隔天数. 代码如下:
(defun my/org-days-between (start end) "Number of days between START and END. This includes START and END." (1+ (- (calendar-absolute-from-gregorian (org-date-to-gregorian end)) (calendar-absolute-from-gregorian (org-date-to-gregorian start)))))
下面改进后的表格. 我将“Needed”列放到医药种类得左边, 这样方便我阅读和确认.
| Needed | Type | Per day | Start | End | Stock | |--------+--------------+---------+------------+------------+-------| | 30 | Medication A | 2 | 2015-06-16 | 2015-06-30 | 0 | | 2 | Medication B | 0.1 | 2015-06-16 | 2015-06-30 | 0.2 | #+TBLFM: @2$1..@>$1='(ceiling (- (* (my/org-days-between $4 $5) (string-to-number $3)) (string-to-number $6)))
在#+TBLFM:这一行按下 C-c C-c 会自动更新第一列的值.
@2$1..@>$1 表示第一列($1)的第二行(@2)到最后一行(@>)的单元. ' 告诉Org将紧跟着的表达式看成Emacs-Lisp来计算.计算时会替换指定的值(例如$4被替换为第四列的值).
表格中用来计算第一列(Needed)的公式需要知道你每天的消耗,从那天开始到那天结束(包括这两天)以及先有的库存. 计算出来的结果通过 ceiling 函数向上取整.
由于该等式从会从表格中的每行中取相应数据, 因此所有行中的开始与结束日期都必须有值(即使这些值其实每行都一样的). 为了快速复制这些值到下一行,设置 org-table-copy-increment 为nil, 然后在你希望复制上一行值的单元上按下 S-return (shift-return)即可. 不断按 S-return 就会不断的往下复制.
由于表格计算公式中各表格的内容会当成是字符串来看待, 因此有些值需要使用 string-to-number 来将之转换为数字才能进行乘法和减法运算. 若所有表格内容都是数字,则可以通过 ;N 标志让org自动帮你作转换. 像下面这样:
| Needed | Type | Per day | Days | Stock | |--------+--------------+---------+------+-------| | 6 | Medication A | 2 | 3 | 0 | | 1 | Medication B | 0.1 | 3 | 0.2 | #+TBLFM: @2$1..@>$1='(ceiling (- (* $3 $4) $5)));N
