Function: calendar-chinese-to-absolute-for-diary

calendar-chinese-to-absolute-for-diary is a byte-compiled function defined in cal-china.el.gz.

Signature

(calendar-chinese-to-absolute-for-diary THEDATE &optional PREFER-LEAP)

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-china.el.gz
(defun calendar-chinese-to-absolute-for-diary (thedate &optional prefer-leap)
  (pcase-let* ((`(,m ,d ,y) thedate)
               (cycle (floor y 100))
               (year (mod y 100))
               (months (calendar-chinese-months cycle year))
               (lm (+ (floor m) 0.5)))
    (calendar-chinese-to-absolute
     (if (and prefer-leap (memql lm months))
         (list cycle year lm d)
       (list cycle year m d)))))