time between time

[Emanuel Berg]

Is this any good?

(defun wall-clock-time (h1 m1 s1 h2 m2 s2)
  (let*((d   08) ; bonus points if anyone knows what happened then
        (m   05)
        (y 1978)
        (total-seconds-1 (float-time (encode-time s1 m1 h1 d m y)))
        (total-seconds-2 (float-time (encode-time s2 m2 h2 d m y)))
        (s-diff (- total-seconds-2 total-seconds-1)) )
    (format-seconds "%hh %mm %ss" s-diff) ))
(defalias 'wct        #'wall-clock-time)
;; (wct 09 35 00 23 00 00) ; "13h 25m 0s"


line 13 @ http://user.it.uu.se/~embe8573/emacs-init/time-my.el

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal