Name: Anonymous 2016-07-14 20:42
e/b/in /g/roskis
(defun cmp-time-in-days (x y)
(let ((day-in-secs (* 60 60 24)))
(/ (abs (- x y))
day-in-secs)))
(defun get-time (date-str)
(let ((date (apply #'concat (list date-str " 00:00:00 UTC"))))
(floor (float-time (date-to-time date)))))
(defun now ()
(floor (float-time)))
;; examples
(cmp-time-in-days (now)
(get-time "14 July 2016")) ;; => 0
(cmp-time-in-days (get-time "11 July 2016")
(now)) ;; => 3
(cmp-time-in-days (get-time "14 Aug 2016")
(now)) ;; => 30 (t2 - t1).days() Datediff("d", date1, date2)