Function: calendar-hebrew-birthday

calendar-hebrew-birthday is a byte-compiled function defined in cal-hebrew.el.gz.

Signature

(calendar-hebrew-birthday DATE YEAR)

Documentation

Absolute date of the anniversary of Hebrew birth DATE, in Hebrew YEAR.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-hebrew.el.gz
(defun calendar-hebrew-birthday (date year)
  "Absolute date of the anniversary of Hebrew birth DATE, in Hebrew YEAR."
  (let ((b-day (calendar-extract-day date))
        (b-month (calendar-extract-month date))
        (b-year (calendar-extract-year date)))
    ;; If it's Adar in a normal Hebrew year or Adar II in a Hebrew leap year...
    (if (= b-month (calendar-hebrew-last-month-of-year b-year))
        ;; ...then use the same day in last month of Hebrew year.
        (calendar-hebrew-to-absolute
         (list (calendar-hebrew-last-month-of-year year) b-day year))
      ;; Else use the normal anniversary of the birth date,
      ;; or the corresponding day in years without that date.
      (+ (calendar-hebrew-to-absolute (list b-month 1 year)) b-day -1))))