易语言 已知年份求十二生肖中的年是什么年 12生肖计算算法公式源码

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型
   
6. .局部变量 年, 文本型
   
7. 
   
8. .如果真 (输入框 (, “请输入年份:”, 到文本 (取年份 (取现行时间 ())), 年, #输入整数, ) ＝ 假)
   
9.     返回 (0)
   
10. .如果真结束
    
11. 信息框 (年算生肖 (到整数 (年)), 0, , )
    
12. 返回 (0)  ' 可以根据您的需要返回任意数值
    
13. 
    
14. .子程序 年算生肖, 文本型, 公开, 失败返回空文本
    
15. .参数 年, 整数型, , 大于0的整数
    
16. .局部变量 生肖, 文本型, , "0"
    
17. 
    
18. .如果真 (年 ＜ 0)
    
19.     返回 (“”)
    
20. .如果真结束
    
21. 生肖 ＝ { “猴”, “鸡”, “狗”, “猪”, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊” }
    
22. 返回 (生肖 [年 ％ 12 ＋ 1])
    

复制代码