Function: calendar-bahai-from-absolute

calendar-bahai-from-absolute is a byte-compiled function defined in cal-bahai.el.gz.

Signature

(calendar-bahai-from-absolute DATE)

Documentation

Bahá’í date (month day year) corresponding to the absolute DATE.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-bahai.el.gz
       day)))                           ; days so far this month

(defun calendar-bahai-from-absolute (date)
  "Bahá’í date (month day year) corresponding to the absolute DATE."
  (if (< date calendar-bahai-epoch)
      (list 0 0 0)                      ; pre-Bahá’í date
    (let* ((greg (calendar-gregorian-from-absolute date))
           (gmonth (calendar-extract-month greg))
           (year (+ (- (calendar-extract-year greg) 1844)
                    (if (or (> gmonth 3)
                            (and (= gmonth 3)
                                 (>= (calendar-extract-day greg) 21)))
                        1 0)))
           (month                       ; search forward from Baha
            (1+ (calendar-sum m 1
                  (> date (calendar-bahai-to-absolute (list m 19 year)))
                  1)))
           (day                     ; calculate the day by subtraction
            (- date
               (1- (calendar-bahai-to-absolute (list month 1 year))))))
      (list month day year))))