看论坛上安卓版本的万年历好多啊，今天给大家送上一个电脑版的，非常方便，易语言写的；
想要共同进步的一定很多，因此…^^^源码^^给大家奉上。
[color=]源码和成品软件分享给大家，和大家一起研究学习，在吾爱这个大家庭，一起成长！↖(^ω^)↗
微信截图_20230318131526.jpg (51.67 KB, 下载次数: 0)
下载附件
2023-3-18 13:28 上传
y1 ＝ 取年份 (到时间 (到文本 (t)))
m1 ＝ 取月份 (到时间 (到文本 (t)))
d1 ＝ 取日 (到时间 (到文本 (t)))
公历转农历 (到时间 (到文本 (t)), y2, m2, d2, r2)
.判断开始 (m1 ＝ 1 且 d1 ＝ 1)
s ＝ “1元旦”
.判断 (m1 ＝ 5 且 (d1 ＝ 1 或 d1 ＝ 2 或 d1 ＝ 3))
s ＝ “1劳动节”
.判断 (m1 ＝ 10 且 (d1 ＝ 1 或 d1 ＝ 2 或 d1 ＝ 3))
s ＝ “1国庆节”
.判断 (m2 ＝ 1 且 (d2 ＝ 1 或 d2 ＝ 2 或 d2 ＝ 3))
s ＝ “1春节”
.判断 (m1 ＝ 2 且 d1 ＝ 14)
s ＝ “2情人节”
.判断 (m1 ＝ 3 且 d1 ＝ 5)
s ＝ “2学雷锋”
.判断 (m1 ＝ 3 且 d1 ＝ 8)
s ＝ “2妇女节”
.判断 (m1 ＝ 3 且 d1 ＝ 12)
s ＝ “2植树节”
.判断 (m1 ＝ 3 且 d1 ＝ 15)
s ＝ “2消费者权益日”
.判断 (m1 ＝ 4 且 d1 ＝ 1)
s ＝ “2愚人节”
.判断 (m1 ＝ 4 且 d1 ＝ 7)
s ＝ “2世界卫生日”
.判断 (m1 ＝ 4 且 d1 ＝ 22)
s ＝ “2世界地球日”
.判断 (m1 ＝ 5 且 d1 ＝ 4)
s ＝ “2青年节”
.判断 (m1 ＝ 5 且 d1 ＝ 8)
s ＝ “2世界红十字日”
.判断 (m1 ＝ 5 且 d1 ＝ 12)
s ＝ “2国际护士节”
.判断 (m1 ＝ 5 且 d1 ＝ 15)
s ＝ “2国际家庭日”
.判断 (m1 ＝ 5 且 d1 ＝ 17)
s ＝ “2国际电信日”
.判断 (m1 ＝ 6 且 d1 ＝ 1)
s ＝ “2国际儿童节”
.判断 (m1 ＝ 6 且 d1 ＝ 5)
s ＝ “2世界环境保护日”
.判断 (m1 ＝ 6 且 d1 ＝ 6)
s ＝ “2全国爱眼日”
.判断 (m1 ＝ 6 且 d1 ＝ 25)
s ＝ “2全国土地日”
.判断 (m1 ＝ 6 且 d1 ＝ 25)
s ＝ “2国际禁毒日”
.判断 (m1 ＝ 7 且 d1 ＝ 1)
s ＝ “2香港回归中共诞辰”
.判断 (m1 ＝ 7 且 d1 ＝ 7)
s ＝ “2抗战纪念日”
.判断 (m1 ＝ 8 且 d1 ＝ 1)
s ＝ “2建军节”
.判断 (m1 ＝ 8 且 d1 ＝ 15)
s ＝ “2抗战胜利”
.判断 (m1 ＝ 9 且 d1 ＝ 9)
s ＝ “2毛泽东逝世”
.判断 (m1 ＝ 9 且 d1 ＝ 8)
s ＝ “2国际扫盲日”
.判断 (m1 ＝ 9 且 d1 ＝ 10)
s ＝ “2教师节”
.判断 (m1 ＝ 9 且 d1 ＝ 27)
s ＝ “2世界旅游日”
.判断 (m1 ＝ 9 且 d1 ＝ 28)
s ＝ “2孔子诞辰”
.判断 (m1 ＝ 10 且 d1 ＝ 6)
s ＝ “2老人节”
.判断 (m1 ＝ 10 且 d1 ＝ 9)
s ＝ “2世界邮政日”
.判断 (m1 ＝ 10 且 d1 ＝ 14)
s ＝ “2世界标准日”
.判断 (m1 ＝ 10 且 d1 ＝ 16)
s ＝ “2世界粮食日”
.判断 (m1 ＝ 10 且 d1 ＝ 24)
s ＝ “2联合国日”
.判断 (m1 ＝ 11 且 (d1 ＝ 20 或 d1 ＝ 21 或 d1 ＝ 22))
s ＝ “2彝族年”
.判断 (m1 ＝ 11 且 d1 ＝ 12)
s ＝ “2孙中山诞辰”
.判断 (m1 ＝ 12 且 d1 ＝ 5)
s ＝ “2国际志愿人员日”
.判断 (m1 ＝ 12 且 d1 ＝ 20)
s ＝ “2澳门回归”
.判断 (m1 ＝ 12 且 d1 ＝ 25)
s ＝ “2圣诞节”
.判断 (m1 ＝ 12 且 d1 ＝ 26)
s ＝ “2毛泽东诞辰”
.判断 (m1 ＝ 5 且 d1 ＝ 20)
s ＝ “2母亲节”
.判断 (m1 ＝ 6 且 d1 ＝ 30)
s ＝ “2父亲节”
.判断 (m1 ＝ 7 且 d1 ＝ 30)
s ＝ “2被奴国周”
.判断 (m1 ＝ 11 且 d1 ＝ 24)
s ＝ “2感恩节”
.判断 (m2 ＝ 1 且 d2 ＝ 15)
s ＝ “3元宵节”
.判断 (m2 ＝ 5 且 d2 ＝ 5)
s ＝ “3端午节”
.判断 (m2 ＝ 6 且 (d2 ＝ 24 或 d2 ＝ 25 或 d2 ＝ 26))
s ＝ “3火把节”
.判断 (m2 ＝ 7 且 d2 ＝ 7)
s ＝ “3七夕情人节”
.判断 (m2 ＝ 7 且 d2 ＝ 15)
s ＝ “3中元节”
.判断 (m2 ＝ 8 且 d2 ＝ 15)
s ＝ “3中秋节”
.判断 (m2 ＝ 9 且 d2 ＝ 9)
s ＝ “3重阳节”
.判断 (m2 ＝ 12 且 d2 ＝ 8)
s ＝ “3腊八节”
.判断 (m2 ＝ 12 且 d2 ＝ 24)
s ＝ “3小年”
.默认
s ＝ “”
.判断结束
返回 (s)
微信截图_20230318132824.jpg (65.49 KB, 下载次数: 0)
下载附件
2023-3-18 13:30 上传
源码：https://wwdy.lanzouf.com/ityBu0qemtcj
