mirror of
https://github.com/logseq/logseq.git
synced 2026-05-05 19:36:35 +00:00
committed by
Tienson Qin
parent
aa85b7bf18
commit
e76f0d75ef
@@ -21,6 +21,18 @@
|
||||
seconds (mod seconds 60)]
|
||||
(util/format "%02d:%02d:%02d" hours minutes seconds)))
|
||||
|
||||
(defn seconds->days:hours:minutes:seconds
|
||||
[seconds]
|
||||
(let [days (quot (quot seconds 3600) 24)
|
||||
hours (quot seconds 3600)
|
||||
minutes (quot (- seconds (* hours 3600)) 60)
|
||||
seconds (mod seconds 60)]
|
||||
(util/format "%s%s%s%s"
|
||||
(if (zero? days) "" (str days "d"))
|
||||
(if (zero? hours) "" (str hours "h"))
|
||||
(if (zero? minutes) "" (str minutes "m"))
|
||||
(if (zero? seconds) "" (str seconds "s")))))
|
||||
|
||||
(defn minutes->days:hours:minutes
|
||||
[minutes]
|
||||
(let [days (quot (quot minutes 60) 24)
|
||||
|
||||
Reference in New Issue
Block a user