易语言 利用《农历日期支持库》实现获取所有年份的中秋节与教师节等于9月10日的可能

CNWTEPRG

1. .版本 2
   
2. .支持库 CnCalendar
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 日期, 日期时间型
    
14. .局部变量 年, 整数型
    
15. .局部变量 文本, 文本型
    
16. 
    
17. .计次循环首 (9999, 年)
    
18.     .如果真 (农历转公历 (年, 8, 15, 假, 日期))
    
19.         .如果真 (取月份 (日期) ＝ 9 且 取日 (日期) ＝ 10)
    
20.             文本 ＝ 文本 ＋ 到文本 (日期) ＋ #换行符
    
21.         .如果真结束
    
22. 
    
23.     .如果真结束
    
24. 
    
25. .计次循环尾 ()
    
26. 信息框 (文本, 0, , )
    
27. 
    

复制代码

相随

可以参考一下

易佳

谢谢分享！！！