Question

所以，在工作中我们使用flexitime（弹性小时，弹性小时......），这很好，但很难跟踪。我目前正在使用org-mode来跟踪我的工作时间（org-clock-(out|in)），但我想扩展它以自动计算我是否工作超过8小时（应该在我的弹性时间中添加剩余时间） '帐号'）或更少（取决于我午休时间等），我的弹性帐户'帐户'上的余额等等。

有没有其他人使用Emacs？

我目前正在使用非常基本的设置来跟踪我的时间：

(defun check-in ()
  (interactive)
  (let (pbuf (current-buffer))
    (find-file (convert-standard-filename "whatnot"))
    (goto-char (point-max))
    (insert "\n")
    (org-insert-heading)
    (org-insert-time-stamp (current-time))
    (org-clock-in)
    (save-buffer)
    (switch-to-buffer pbuf)))

(defun check-out ()
  (interactive)
  (let (pbuf (current-buffer))
    (find-file (convert-standard-filename "whatnot"))
    (goto-char (point-max))
    (org-clock-out)
    (save-buffer)
    (switch-to-buffer pbuf)))

Answer 1

假设我正确理解了您的问题，我就快速解决了一个问题。首先，如果您多次登记和退房，则应确保每天只创建一个大纲条目。定义以下函数，该函数将计算给定日期的加班时间。

(defun compute-overtime (duration-string)
  "Computes overtime duration string for the given time DURATION-STRING."
  (let (minutes-in-a-workday
        work-minutes
        overtime-minutes)
    (defconst minutes-in-a-workday 480)
    (setq work-minutes (org-duration-string-to-minutes duration-string)
          overtime-minutes (- work-minutes minutes-in-a-workday))
    (if (< overtime-minutes 0) (setq overtime-minutes 0))
    (org-minutes-to-hh:mm-string overtime-minutes)))

然后，在文件whatnot中的时钟表公式中使用它。

#+BEGIN: clocktable :maxlevel 1 :emphasize nil :scope file :formula "$3='(compute-overtime $2)::@2$3=string(\"Overtime\")"    
#+END: clocktable

当您在时钟表上重新生成时，按 C-c C-c 。

您可以通过使用其他公式对加班时间进行求和来获得总加班时间。但是，我没有这样做。

使用Emacs跟踪弹性时间（＆amp;组织模式）

1 个答案: