From 0c68a25385ffee179ff1f19e3501410ca8f8aa09 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Mon, 16 Aug 2004 09:59:46 +0000 Subject: [PATCH] (time-to-number-of-days): New function. Imported from from Gnus. --- lisp/ChangeLog | 5 +++++ lisp/calendar/time-date.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6ee3d9313c2..05af39017b1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-08-16 Reiner Steib + + * calendar/time-date.el (time-to-number-of-days): New function. + Imported from from Gnus. + 2004-07-22 Kim F. Storm * progmodes/make-mode.el: Fix comments. diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index 846231befe6..8a667b91de4 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el @@ -1,5 +1,5 @@ ;;; time-date.el --- date and time handling functions -;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2004 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Masanobu Umeda @@ -38,7 +38,7 @@ (parse-time-string ;; `parse-time-string' isn't sufficiently general or ;; robust. It fails to grok some of the formats that - ;; timzeone does (e.g. dodgy post-2000 stuff from some + ;; timezone does (e.g. dodgy post-2000 stuff from some ;; Elms) and either fails or returns bogus values. Lars ;; reverted this change, but that loses non-trivially ;; often for me. -- fx @@ -176,6 +176,11 @@ The Gregorian date Sunday, December 31, 1bce is imaginary." (- (/ (1- year) 100)) ; - century years (/ (1- year) 400)))) ; + Gregorian leap years +(defun time-to-number-of-days (time) + "Return the number of days represented by TIME. +The number of days will be returned as a floating point number." + (/ (+ (* 1.0 65536 (car time)) (cadr time)) (* 60 60 24))) + ;;;###autoload (defun safe-date-to-time (date) "Parse a string that represents a date-time and return a time value. -- 2.39.2