获取指定年份的农历天干地支年名lisp版

caoliu023 · 发表于 2016-6-20 11:17

本帖最后由 caoliu023 于 2016-6-27 22:34 编辑

偶然在明经的vba函数中心看到某位大大写的获取指定年份的农历天干地支年名vba函数
页面地址在这里 http://www.mjtd.com/function/info-130-469.html
感觉挺有意思的，所以就把它翻译成lisp版本

(defun GetCNYearName (CurYear / temp temp2 tg dz an)
(if (< CurYear 4)
(princ "输入年份不能小于4")
(progn
(setq CNYear_TG '("甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"))
(setq CNYear_DZ '("子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"))
(setq CNYear_AN '("鼠" "牛" "虎" "兔" "龙" "蛇" "马" "羊" "猴" "鸡" "狗" "猪"))
(setq temp (fix(rem (- CurYear 4.0) 60 12)))
(setq temp2 (fix(rem(- CurYear 4.0) 60 10)))
(setq tg(nth temp2 CNYear_TG))
(setq dz(nth temp CNYear_DZ))
(setq an(nth temp CNYear_AN))
(princ (strcat "该年是" tg dz "("an")" "年"))
)
)
(princ)
)

crtrccrt · 发表于 2016-6-26 07:02

;;; CurYear  任意数值;;;
(defun GetCNYearName ( CurYear / temp1 temp2 tg dz an)
  ;;;  获取指定年份的农历天干地支年名;
  ;;;  (GetCNYearName 2016)
  ;;;  (GetCNYearName 2)
  ;;;  (GetCNYearName -58)
  (if (numberp CurYear)
(progn
   (setq CNYear_TG (list "甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"))
   (setq CNYear_DZ (list "子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"))
   (setq CNYear_AN (list "鼠" "牛" "虎" "兔" "龙" "蛇" "马" "羊" "猴" "鸡" "狗" "猪"))
   (setq temp1 (fix (rem (- CurYear 4) 60 12)))
   (setq temp2 (fix (rem (- CurYear 4) 60 10)))
   (while (< temp1 0)  (setq temp1 (+ temp1 12))  )
   (while (< temp2 0)  (setq temp2 (+ temp2 10))  )
   (setq tg (nth temp2 CNYear_TG))
   (setq dz (nth temp1 CNYear_DZ))
   (setq an (nth temp1 CNYear_AN))
   (princ (strcat "\n  该年是 " tg dz "(" an ") 年."))
);;;progn;
  )
  (princ)
)

ynhh · 发表于 2016-6-20 13:42

今年是丙申(猴)年

baitang36 · 发表于 2020-2-18 16:21

可以再扩充一下，输入年月日时，生成八字，用于自动算命。

账号		自动登录	找回密码
密码			注册

[函数] 获取指定年份的农历天干地支年名lisp版

评分