[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: How to read a timestamp?

From: Emanuel Berg
Subject: Re: How to read a timestamp?
Date: Wed, 12 Aug 2015 04:56:52 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux)

Marcin Borkowski <address@hidden> 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:

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]