易语言年月日算星期终极算法 100年1月1日到9999年12月31日没有1个错误的 纯核心库之作

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 日期, 日期时间型
    
14. .局部变量 系统算的星期, 整数型
    
15. .局部变量 本方法算的星期, 整数型
    
16. 
    
17. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
18. 输出调试文本 (到文本星期 (年月日算星期 (292277026596, 12, 4)))
    
19. 输出调试文本 (到文本星期 (年月日算星期 (2222, 2, 22)))
    
20. 输出调试文本 (到文本星期 (年月日算星期 (1, 1, 1)))
    
21. 输出调试文本 (到文本星期 (年月日算星期 (1111, 11, 11)))
    
22. 输出调试文本 (到文本星期 (年月日算星期 (2022, 2, 22)))
    
23. 
    
24. 
    
25. 
    
26. 
    
27. 日期 ＝ [100年1月1日]
    
28. .循环判断首 ()
    
29.     系统算的星期 ＝ 取星期几 (日期)
    
30.     本方法算的星期 ＝ 年月日算星期 (取年份 (日期), 取月份 (日期), 取日 (日期))
    
31.     .如果 (系统算的星期 ＝ 本方法算的星期)
    
32.         .如果真 (取随机数 (0, 10000) ＝ 0)
    
33.             输出调试文本 (到文本 (日期) ＋ “ ” ＋ 到文本星期 (本方法算的星期))
    
34.         .如果真结束
    
35. 
    
36.     .否则
    
37.         暂停 ()
    
38. 
    
39.     .如果结束
    
40.     日期 ＝ 增减时间 (日期, 5, 1)
    
41. .循环判断尾 (日期 ≠ [9999年12月31日])
    
42. 
    
43. 
    
44. .子程序 年月日算星期, 字节型, 公开, 已知年月日求星期几，星期日为1、星期1为2、以此类推，失败返回0
    
45. .参数 年, 长整数型, , 不能为负数 范围:0~9223372036854775807
    
46. .参数 月, 字节型
    
47. .参数 日, 字节型
    
48. .局部变量 年代码, 整数型
    
49. .局部变量 月代码, 整数型, , "0"
    
50. .局部变量 星期, 字节型
    
51. 
    
52. .判断开始 (日期时间是否有效 (年, 月, 日) ＝ 假)
    
53.     返回 (0)
    
54. .判断 (是否为闰年 (年))
    
55.     年代码 ＝ (取元旦星期 (年) ＋ 2) ％ 7
    
56.     月代码 ＝ { 5, 1, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4 }
    
57. .默认
    
58.     年代码 ＝ (取元旦星期 (年) ＋ 8) ％ 7
    
59.     月代码 ＝ { 6, 2, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4 }
    
60. .判断结束
    
61. 星期 ＝ (年代码 ＋ 月代码 [月] ＋ 日) ％ 7
    
62. .如果真 (星期 ＝ 0)
    
63.     星期 ＝ 7
    
64. .如果真结束
    
65. 返回 (星期)
    
66. 
    
67. .子程序 是否为闰年, 逻辑型
    
68. .参数 年, 长整数型
    
69. 
    
70. 返回 (年 ％ 4 ＝ 0 且 年 ％ 100 ≠ 0 或 年 ％ 400 ＝ 0)
    
71. 
    
72. .子程序 取年天数, 长整数型
    
73. .参数 年, 长整数型
    
74. 
    
75. 返回 (年 × 365 ＋ 取闰年数 (年))
    
76. 
    
77. .子程序 取元旦星期, 整数型
    
78. .参数 年, 长整数型
    
79. 
    
80. 返回 ((1 ＋ 取年天数 (年) － 取当前年天数 (年)) ％ 7)
    
81. 
    
82. .子程序 取当前年天数, 整数型
    
83. .参数 年, 长整数型
    
84. 
    
85. 返回 (选择 (是否为闰年 (年), 366, 365))
    
86. 
    
87. .子程序 取闰年数, 长整数型
    
88. .参数 年, 长整数型
    
89. 
    
90. 返回 (年 ＼ 4 － 年 ＼ 100 ＋ 年 ＼ 400)
    
91. 
    
92. .子程序 日期时间是否有效, 逻辑型
    
93. .参数 年, 长整数型
    
94. .参数 月, 字节型
    
95. .参数 日, 字节型
    
96. .参数 时, 字节型, 可空
    
97. .参数 分, 字节型, 可空
    
98. .参数 秒, 字节型, 可空
    
99. .局部变量 平年表, 整数型, 静态, "0"
    
100. .局部变量 闰年表, 整数型, 静态, "0"
     
101. 
     
102. 平年表 ＝ { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
     
103. 闰年表 ＝ { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
     
104. .判断开始 (时 ＞ 23 或 分 ＞ 59 或 秒 ＞ 59)
     
105.     返回 (假)
     
106. .判断 (年 ＜ 0 或 月 ＜ 1 或 日 ＜ 1 或 月 ＞ 12)
     
107.     返回 (假)
     
108. .默认
     
109.     返回 (日 ≤ 选择 (是否为闰年 (年), 闰年表 [月], 平年表 [月]))
     
110. .判断结束
     
111. 
     
112. 
     
113. .子程序 到文本星期, 文本型
     
114. .参数 星期, 字节型
     
115. .局部变量 文本星期, 文本型, , "0"
     
116. 
     
117. .如果真 (星期 ＜ 1 或 星期 ＞ 7)
     
118.     返回 (“”)
     
119. .如果真结束
     
120. 文本星期 ＝ { “星期日”, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六” }
     
121. 返回 (文本星期 [星期])
     

复制代码

朵朵

HNY 发表于 2018-10-1 19:49
到时候年月日进位制度保不准啥时候修改了这个也没用了。

至少几千几万年吧，据说闰秒啥的就出来了...

笔芯

Hello 发表于 2021-9-24 22:23
1582年10月6日是星期几???

建议你网上搜索。

电脑高手

到时候年月日进位制度保不准啥时候修改了这个也没用了。

4面8方

这个必须得顶

520

66666666

1心1亿

这个绝对6，比别的都好用。

小莉今年7岁

来瞅瞅咋整的

小莉今年7岁

再来一把

Orange

66666666666

222

看看运气