Function: rng-xsd-date-to-days

rng-xsd-date-to-days is a byte-compiled function defined in rng-xsd.el.gz.

Signature

(rng-xsd-date-to-days YEAR MONTH DAY)

Documentation

Return a unique day number where Jan 1 1 AD is day 1.

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/rng-xsd.el.gz
(defun rng-xsd-date-to-days (year month day)
  "Return a unique day number where Jan 1 1 AD is day 1."
  (if (> year 0)			; AD
      (+ (rng-xsd-days-in-years (- year 1))
	 (rng-xsd-day-number-in-year year month day))
    (- (+ (- (rng-xsd-days-in-years (- 3 year))
	     (rng-xsd-days-in-years 3))
	  (- (if (rng-xsd-leap-year-p year) 366 365)
	     (rng-xsd-day-number-in-year year month day))))))