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

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

Signature

(calendar-chinese-from-absolute-for-diary THEDATE)

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-china.el.gz
;; NOTE: In the diary the cycle and year of a Chinese date is
;; combined using this formula: (+ (* cycle 100) year).
;;;
;; These two functions convert to and back from this representation.
(defun calendar-chinese-from-absolute-for-diary (thedate)
  (pcase-let ((`(,c ,y ,m ,d) (calendar-chinese-from-absolute thedate)))
    ;; Note: For leap months M is a float.
    (list (floor m) d (+ (* c 100) y))))