From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: How to read a timestamp? Date: Wed, 12 Aug 2015 04:56:52 +0200 Message-ID: <87mvxxkydn.fsf@nl106-137-147.student.uu.se> References: <87k2t1tt0y.fsf@mbork.pl> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1439348847 18234 80.91.229.3 (12 Aug 2015 03:07:27 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 12 Aug 2015 03:07:27 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Aug 12 05:07:19 2015 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ZPMNq-0003z8-Ni for geh-help-gnu-emacs@m.gmane.org; Wed, 12 Aug 2015 05:07:18 +0200 Original-Received: from localhost ([::1]:36593 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZPMNq-000421-3T for geh-help-gnu-emacs@m.gmane.org; Tue, 11 Aug 2015 23:07:18 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:53642) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZPMGx-0002b7-UQ for help-gnu-emacs@gnu.org; Tue, 11 Aug 2015 23:00:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZPMGs-00022S-GE for help-gnu-emacs@gnu.org; Tue, 11 Aug 2015 23:00:11 -0400 Original-Received: from plane.gmane.org ([80.91.229.3]:42912) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZPMGr-0001y3-T2 for help-gnu-emacs@gnu.org; Tue, 11 Aug 2015 23:00:06 -0400 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1ZPMGq-0007hP-Rd for help-gnu-emacs@gnu.org; Wed, 12 Aug 2015 05:00:04 +0200 Original-Received: from nl106-137-246.student.uu.se ([130.243.137.246]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 12 Aug 2015 05:00:04 +0200 Original-Received: from embe8573 by nl106-137-246.student.uu.se with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 12 Aug 2015 05:00:04 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Original-Lines: 37 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: nl106-137-246.student.uu.se Mail-Copies-To: never User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) Cancel-Lock: sha1:GF/3nokYULqpy2niMF8YK9E4M+o= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:106489 Archived-At: Marcin Borkowski 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