Re: How to read a timestamp?

[Emanuel Berg]

Marcin Borkowski <mbork@mbork.pl> writes:

> I need to ask the user for a date (with or without
> time - if no time is supplied, I want to assume
> 9:00am). I know that `org-read-date' is quite
> a powerful way to do it, but what if I do not want
> to depend on Org-mode?

I wrote something to that extent a while back:

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

Here is the relevant Elisp. (To add "time", change the
arguments to `encode-time'.)


(defun time-between-times (year1 month1 day1
                           year2 month2 day2)
  (let*((seconds-then  (float-time (encode-time 0 0 0 day1 month1 year1)))
        (seconds-now   (float-time (encode-time 0 0 0 day2 month2 year2)))
        (seconds-diff  (- seconds-now seconds-then)) )
    (format-seconds "%Y, %D" seconds-diff)))

(defun print-time-since (year month day)
  (format-seconds "%Y, %D" (float-time
                            (time-since (encode-time 0 0 0 day month year)))) )

;; test:
;;   (time-between-times 2010 4 15 2015 3 16)
;;   (print-time-since 2010 4 15)


You are welcome :)

-- 
underground experts united
http://user.it.uu.se/~embe8573