Lines Matching refs:seconds
33 ;; seconds; the third format specifies HIGH * 2^16 + LOW + MICRO /
34 ;; 1000000 seconds. We should have 0 <= MICRO < 1000000 and 0 <= LOW
114 (defun time-to-seconds (time)
123 (defun seconds-to-time (seconds)
125 (list (floor seconds 65536)
126 (floor (mod seconds 65536))
127 (floor (* (- seconds (ffloor seconds)) 1000000))))
143 (let* ((seconds (* 1.0 days 60 60 24))
144 (high (condition-case nil (floor (/ seconds 65536))
146 (list high (condition-case nil (floor (- seconds (* 1.0 high 65536)))
247 (/ (time-to-seconds time) (* 60 60 24)))