时间_取农历节日，加个除夕的

爱无情

已帮忙加了
.版本 2
.支持库 CnCalendar
.子程序 时间_取农历节日, 文本型
.参数 公历时间, 日期时间型
.局部变量 农历年, 整数型
.局部变量 农历月, 整数型
.局部变量 农历日, 整数型
.局部变量 闰月, 逻辑型
.局部变量 节日文本, 文本型
公历转农历 (公历时间, 农历年, 农历月, 农历日, 闰月)
节日文本 ＝ “”
.如果真 (农历月 ＝ 1 且 农历日 ＝ 1)
    节日文本 ＝ “春节”
.如果真结束
.如果真 (农历月 ＝ 1 且 农历日 ＝ 15)
    节日文本 ＝ “元宵节”
.如果真结束
.如果真 (农历月 ＝ 2 且 农历日 ＝ 2)
    节日文本 ＝ “中和节”
.如果真结束
.如果真 (农历月 ＝ 5 且 农历日 ＝ 5)
    节日文本 ＝ “端午节”
.如果真结束
.如果真 (农历月 ＝ 7 且 农历日 ＝ 7)
    节日文本 ＝ “七巧节”
.如果真结束
.如果真 (农历月 ＝ 8 且 农历日 ＝ 15)
    节日文本 ＝ “中秋节”
.如果真结束
.如果真 (农历月 ＝ 9 且 农历日 ＝ 9)
    节日文本 ＝ “重阳节”
.如果真结束
.如果真 (农历月 ＝ 12 且 农历日 ＝ 8)
    节日文本 ＝ “腊八节”
.如果真结束
.如果真 (农历月 ＝ 12 且 农历日 ＝ 24)
    节日文本 ＝ “小年”
.如果真结束
.如果真 (农历月 ＝ 12 且 农历日 ＝ 取农历月总天数 (农历年, 农历月, 闰月))
    节日文本 ＝ “除夕”
.如果真结束
返回 (节日文本)

hiiamgood

好，学习一下

爱无情

萧阳天 发表于 2016-2-5 20:12
农历日期支持库->农历日期处理

不宜封装进模块

这样的话改成这样的话行不？
.版本 2
.子程序 时间_取农历节日, 文本型
.参数 农历月, 整数型
.参数 农历日, 整数型
.参数 农历月总天数, 整数型, 可空, 要判断是否为除夕时必填
.局部变量 节日文本, 文本型
节日文本 ＝ “”
.如果真 (农历月 ＝ 1 且 农历日 ＝ 1)
    节日文本 ＝ “春节”
.如果真结束
.如果真 (农历月 ＝ 1 且 农历日 ＝ 15)
    节日文本 ＝ “元宵节”
.如果真结束
.如果真 (农历月 ＝ 2 且 农历日 ＝ 2)
    节日文本 ＝ “中和节”
.如果真结束
.如果真 (农历月 ＝ 5 且 农历日 ＝ 5)
    节日文本 ＝ “端午节”
.如果真结束
.如果真 (农历月 ＝ 7 且 农历日 ＝ 7)
    节日文本 ＝ “七巧节”
.如果真结束
.如果真 (农历月 ＝ 8 且 农历日 ＝ 15)
    节日文本 ＝ “中秋节”
.如果真结束
.如果真 (农历月 ＝ 9 且 农历日 ＝ 9)
    节日文本 ＝ “重阳节”
.如果真结束
.如果真 (农历月 ＝ 12 且 农历日 ＝ 8)
    节日文本 ＝ “腊八节”
.如果真结束
.如果真 (农历月 ＝ 12 且 农历日 ＝ 24)
    节日文本 ＝ “小年”
.如果真结束
.如果真 (农历月 ＝ 12 且 农历日 ＝ 农历月总天数)
    节日文本 ＝ “除夕”
.如果真结束
返回 (节日文本)

这个一般也用不到...只是今天有人问取不到除夕才来提的

萧阳天

农历日期支持库->农历日期处理

不宜封装进模块