# HG changeset patch # User Reiner Steib # Date 1092650386 0 # Node ID 793ad36b6e6efdf9a76f65feacfcf672ae8f03b7 # Parent a73a1f552d680a14bd44e874cef6a9fca50d1c75 (time-to-number-of-days): New function. Imported from from Gnus. diff -r a73a1f552d68 -r 793ad36b6e6e lisp/ChangeLog --- a/lisp/ChangeLog Thu Aug 05 19:18:14 2004 +0000 +++ b/lisp/ChangeLog Mon Aug 16 09:59:46 2004 +0000 @@ -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 -r a73a1f552d68 -r 793ad36b6e6e lisp/calendar/time-date.el --- a/lisp/calendar/time-date.el Thu Aug 05 19:18:14 2004 +0000 +++ b/lisp/calendar/time-date.el Mon Aug 16 09:59:46 2004 +0000 @@ -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 @@ (- (/ (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.