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

caoliu023

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

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

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

crtrccrt

;;; 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

今年是丙申(猴)年

baitang36

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