Function: org-agenda-span-to-ndays

org-agenda-span-to-ndays is a byte-compiled function defined in org-agenda.el.gz.

Signature

(org-agenda-span-to-ndays SPAN &optional START-DAY)

Documentation

Return ndays from SPAN, possibly starting at START-DAY.

START-DAY is an absolute time value.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
(defun org-agenda-span-to-ndays (span &optional start-day)
  "Return ndays from SPAN, possibly starting at START-DAY.
START-DAY is an absolute time value."
  (cond ((numberp span) span)
	((eq span 'day) 1)
	((eq span 'week) 7)
	((eq span 'fortnight) 14)
	((eq span 'month)
	 (let ((date (calendar-gregorian-from-absolute start-day)))
           (calendar-last-day-of-month (car date) (caddr date))))
	((eq span 'year)
	 (let ((date (calendar-gregorian-from-absolute start-day)))
           (if (calendar-leap-year-p (caddr date)) 366 365)))))