万年历1.0

gulang20230313

万年历电脑版来啦~~~~~


看论坛上安卓版本的万年历好多啊，今天给大家送上一个电脑版的，非常方便，易语言写的；




想要共同进步的一定很多，因此…^^^源码^^给大家奉上。


源码和成品软件分享给大家，和大家一起研究学习，在吾爱这个大家庭，一起成长！↖(^ω^)↗

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)

源码：https://wwdy.lanzouf.com/ityBu0qemtcj

khiuvenpeng

小白不会用啊。😂

小志918

感谢分享

pangtouniao

很实用的小软件

rubingh

源码都分享了成品还留着？

彩八

这个对小白来说没有成品有个毛用

yoriek

能同步各种日历软件的个人日程才好。

gulang20230313

rubingh 发表于 2023-3-18 15:45
源码都分享了成品还留着？

源码都有啦，还要啥成品呢

xiaolala008

很实用的小软件，感谢分享

holiang

感谢 分享 谢谢 谢谢