功能添加-日期_判断二十四节气

yhywhh123

1. .版本 2
   
2. 
   
3. .子程序 时间_判断二十四节气, 文本型, , 返回文本型：若节气日，返回节气名称；不是节气日返回空。注：判断日期范围为1901年1月1日—2099年12月31日
   
4. .参数 日期, 日期时间型
   
5. .局部变量 年, 整数型
   
6. .局部变量 月, 整数型
   
7. .局部变量 日, 整数型
   
8. .局部变量 节气判断, 文本型
   
9. 
   
10. 节气判断 ＝ “”
    
11. 年 ＝ 取年份 (日期)
    
12. 月 ＝ 取月份 (日期)
    
13. 日 ＝ 取日 (日期)
    
14. .如果真 (年 ≥ 2000 且 年 ＜ 2100)  ' 21世纪判断
    
15.     年 ＝ 年 － 2000
    
16.     .如果真 (月 ＝ 2 且 日 ＝ 取整 (年 × 0.2422 ＋ 3.87) － 取整 (年 ÷ 4))
    
17.         节气判断 ＝ “立春”
    
18.     .如果真结束
    
19.     .如果真 (月 ＝ 2 且 日 ＝ 取整 (年 × 0.2422 ＋ 18.73) － 取整 (年 ÷ 4) 且 年 ≠ 26)
    
20.         节气判断 ＝ “雨水”
    
21.     .如果真结束
    
22.     .如果真 (月 ＝ 3 且 日 ＝ 取整 (年 × 0.2422 ＋ 5.63) － 取整 (年 ÷ 4))
    
23.         节气判断 ＝ “惊蛰”
    
24.     .如果真结束
    
25.     .如果真 (月 ＝ 3 且 日 ＝ 取整 (年 × 0.2422 ＋ 20.646) － 取整 (年 ÷ 4) 且 年 ≠ 84)
    
26.         节气判断 ＝ “春分”
    
27.     .如果真结束
    
28.     .如果真 (月 ＝ 4 且 日 ＝ 取整 (年 × 0.2422 ＋ 4.81) － 取整 (年 ÷ 4))
    
29.         节气判断 ＝ “清明”
    
30.     .如果真结束
    
31.     .如果真 (月 ＝ 4 且 日 ＝ 取整 (年 × 0.2422 ＋ 20.1) － 取整 (年 ÷ 4))
    
32.         节气判断 ＝ “谷雨”
    
33.     .如果真结束
    
34.     .如果真 (月 ＝ 5 且 日 ＝ 取整 (年 × 0.2422 ＋ 5.52) － 取整 (年 ÷ 4))
    
35.         节气判断 ＝ “立夏”
    
36.     .如果真结束
    
37.     .如果真 (月 ＝ 5 且 日 ＝ 取整 (年 × 0.2422 ＋ 21.04) － 取整 (年 ÷ 4) 且 年 ≠ 8)
    
38.         节气判断 ＝ “小满”
    
39.     .如果真结束
    
40.     .如果真 (月 ＝ 6 且 日 ＝ 取整 (年 × 0.2422 ＋ 5.678) － 取整 (年 ÷ 4))
    
41.         节气判断 ＝ “芒种”
    
42.     .如果真结束
    
43.     .如果真 (月 ＝ 6 且 日 ＝ 取整 (年 × 0.2422 ＋ 21.37) － 取整 (年 ÷ 4))
    
44.         节气判断 ＝ “夏至”
    
45.     .如果真结束
    
46.     .如果真 (月 ＝ 7 且 日 ＝ 取整 (年 × 0.2422 ＋ 7.108) － 取整 (年 ÷ 4) 且 年 ≠ 16)
    
47.         节气判断 ＝ “小暑”
    
48.     .如果真结束
    
49.     .如果真 (月 ＝ 7 且 日 ＝ 取整 (年 × 0.2422 ＋ 22.83) － 取整 (年 ÷ 4))
    
50.         节气判断 ＝ “大暑”
    
51.     .如果真结束
    
52.     .如果真 (月 ＝ 8 且 日 ＝ 取整 (年 × 0.2422 ＋ 7.5) － 取整 (年 ÷ 4) 且 年 ≠ 2)
    
53.         节气判断 ＝ “立秋”
    
54.     .如果真结束
    
55.     .如果真 (月 ＝ 8 且 日 ＝ 取整 (年 × 0.2422 ＋ 23.13) － 取整 (年 ÷ 4))
    
56.         节气判断 ＝ “处暑”
    
57.     .如果真结束
    
58.     .如果真 (月 ＝ 9 且 日 ＝ 取整 (年 × 0.2422 ＋ 7.646) － 取整 (年 ÷ 4))
    
59.         节气判断 ＝ “白露”
    
60.     .如果真结束
    
61.     .如果真 (月 ＝ 9 且 日 ＝ 取整 (年 × 0.2422 ＋ 23.042) － 取整 (年 ÷ 4))
    
62.         节气判断 ＝ “秋分”
    
63.     .如果真结束
    
64.     .如果真 (月 ＝ 10 且 日 ＝ 取整 (年 × 0.2422 ＋ 8.318) － 取整 (年 ÷ 4))
    
65.         节气判断 ＝ “寒露”
    
66.     .如果真结束
    
67.     .如果真 (月 ＝ 10 且 日 ＝ 取整 (年 × 0.2422 ＋ 23.438) － 取整 (年 ÷ 4) 且 年 ≠ 89)
    
68.         节气判断 ＝ “霜降”
    
69.     .如果真结束
    
70.     .如果真 (月 ＝ 11 且 日 ＝ 取整 (年 × 0.2422 ＋ 7.438) － 取整 (年 ÷ 4) 且 年 ≠ 89)
    
71.         节气判断 ＝ “立冬”
    
72.     .如果真结束
    
73.     .如果真 (月 ＝ 11 且 日 ＝ 取整 (年 × 0.2422 ＋ 22.36) － 取整 (年 ÷ 4))
    
74.         节气判断 ＝ “小雪”
    
75.     .如果真结束
    
76.     .如果真 (月 ＝ 12 且 日 ＝ 取整 (年 × 0.2422 ＋ 7.18) － 取整 (年 ÷ 4))
    
77.         节气判断 ＝ “大雪”
    
78.     .如果真结束
    
79.     .如果真 (月 ＝ 12 且 日 ＝ 取整 (年 × 0.2422 ＋ 21.94) － 取整 (年 ÷ 4) 且 年 ≠ 21)
    
80.         节气判断 ＝ “冬至”
    
81.     .如果真结束
    
82.     .如果真 (月 ＝ 1 且 日 ＝ 取整 (年 × 0.2422 ＋ 5.4055) － 取整 (年 ÷ 4) 且 年 ≠ 19)
    
83.         节气判断 ＝ “小寒”
    
84.     .如果真结束
    
85.     .如果真 (月 ＝ 1 且 日 ＝ 取整 (年 × 0.2422 ＋ 20.12) － 取整 (年 ÷ 4) 且 年 ≠ 82)
    
86.         节气判断 ＝ “大寒”
    
87.     .如果真结束
    
88.     ' 以下为21世纪特殊年份判断
    
89.     .如果真 (年 ＝ 26 且 月 ＝ 2 且 日 ＋ 1 ＝ 取整 (年 × 0.2422 ＋ 18.73) － 取整 (年 ÷ 4))
    
90.         节气判断 ＝ “雨水”
    
91.     .如果真结束
    
92.     .如果真 (年 ＝ 84 且 月 ＝ 2 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 20.64) － 取整 (年 ÷ 4))
    
93.         节气判断 ＝ “春风”
    
94.     .如果真结束
    
95.     .如果真 (年 ＝ 8 且 月 ＝ 2 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 21.04) － 取整 (年 ÷ 4))
    
96.         节气判断 ＝ “小满”
    
97.     .如果真结束
    
98.     .如果真 (年 ＝ 16 且 月 ＝ 2 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 7.108) － 取整 (年 ÷ 4))
    
99.         节气判断 ＝ “小暑”
    
100.     .如果真结束
     
101.     .如果真 (年 ＝ 2 且 月 ＝ 2 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 7.5) － 取整 (年 ÷ 4))
     
102.         节气判断 ＝ “立秋”
     
103.     .如果真结束
     
104.     .如果真 (年 ＝ 89 且 月 ＝ 2 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 23.438) － 取整 (年 ÷ 4))
     
105.         节气判断 ＝ “霜降”
     
106.     .如果真结束
     
107.     .如果真 (年 ＝ 89 且 月 ＝ 2 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 7.438) － 取整 (年 ÷ 4))
     
108.         节气判断 ＝ “立冬”
     
109.     .如果真结束
     
110.     .如果真 (年 ＝ 21 且 月 ＝ 2 且 日 ＋ 1 ＝ 取整 (年 × 0.2422 ＋ 21.94) － 取整 (年 ÷ 4))
     
111.         节气判断 ＝ “冬至”
     
112.     .如果真结束
     
113.     .如果真 (年 ＝ 19 且 月 ＝ 2 且 日 ＋ 1 ＝ 取整 (年 × 0.2422 ＋ 5.4055) － 取整 (年 ÷ 4))
     
114.         节气判断 ＝ “小寒”
     
115.     .如果真结束
     
116.     .如果真 (年 ＝ 82 且 月 ＝ 2 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 20.12) － 取整 (年 ÷ 4))
     
117.         节气判断 ＝ “大寒”
     
118.     .如果真结束
     
119. 
     
120. .如果真结束
     
121. .如果真 (年 ＞ 1900 且 年 ＜ 2000)  ' 20世纪判断
     
122.     年 ＝ 年 － 1900
     
123.     .如果真 (月 ＝ 2 且 日 ＝ 取整 (年 × 0.2422 ＋ 4.6295) － 取整 (年 ÷ 4))
     
124.         节气判断 ＝ “立春”
     
125.     .如果真结束
     
126.     .如果真 (月 ＝ 2 且 日 ＝ 取整 (年 × 0.2422 ＋ 19.4599) － 取整 (年 ÷ 4))
     
127.         节气判断 ＝ “雨水”
     
128.     .如果真结束
     
129.     .如果真 (月 ＝ 3 且 日 ＝ 取整 (年 × 0.2422 ＋ 6.3826) － 取整 (年 ÷ 4))
     
130.         节气判断 ＝ “惊蛰”
     
131.     .如果真结束
     
132.     .如果真 (月 ＝ 3 且 日 ＝ 取整 (年 × 0.2422 ＋ 21.4155) － 取整 (年 ÷ 4))
     
133.         节气判断 ＝ “春分”
     
134.     .如果真结束
     
135.     .如果真 (月 ＝ 4 且 日 ＝ 取整 (年 × 0.2422 ＋ 5.59) － 取整 (年 ÷ 4))
     
136.         节气判断 ＝ “清明”
     
137.     .如果真结束
     
138.     .如果真 (月 ＝ 4 且 日 ＝ 取整 (年 × 0.2422 ＋ 20.888) － 取整 (年 ÷ 4))
     
139.         节气判断 ＝ “谷雨”
     
140.     .如果真结束
     
141.     .如果真 (月 ＝ 5 且 日 ＝ 取整 (年 × 0.2422 ＋ 6.318) － 取整 (年 ÷ 4) 且 年 ≠ 11)
     
142.         节气判断 ＝ “立夏”
     
143.     .如果真结束
     
144.     .如果真 (月 ＝ 5 且 日 ＝ 取整 (年 × 0.2422 ＋ 21.86) － 取整 (年 ÷ 4))
     
145.         节气判断 ＝ “小满”
     
146.     .如果真结束
     
147.     .如果真 (月 ＝ 6 且 日 ＝ 取整 (年 × 0.2422 ＋ 6.5) － 取整 (年 ÷ 4) 且 年 ≠ 2)
     
148.         节气判断 ＝ “芒种”
     
149.     .如果真结束
     
150.     .如果真 (月 ＝ 6 且 日 ＝ 取整 (年 × 0.2422 ＋ 22.2) － 取整 (年 ÷ 4) 且 年 ≠ 28)
     
151.         节气判断 ＝ “夏至”
     
152.     .如果真结束
     
153.     .如果真 (月 ＝ 7 且 日 ＝ 取整 (年 × 0.2422 ＋ 7.928) － 取整 (年 ÷ 4) 且 年 ≠ 25)
     
154.         节气判断 ＝ “小暑”
     
155.     .如果真结束
     
156.     .如果真 (月 ＝ 7 且 日 ＝ 取整 (年 × 0.2422 ＋ 23.65) － 取整 (年 ÷ 4) 且 年 ≠ 22)
     
157.         节气判断 ＝ “大暑”
     
158.     .如果真结束
     
159.     .如果真 (月 ＝ 8 且 日 ＝ 取整 (年 × 0.2422 ＋ 7.5) － 取整 (年 ÷ 4))
     
160.         节气判断 ＝ “立秋”
     
161.     .如果真结束
     
162.     .如果真 (月 ＝ 8 且 日 ＝ 取整 (年 × 0.2422 ＋ 23.95) － 取整 (年 ÷ 4))
     
163.         节气判断 ＝ “处暑”
     
164.     .如果真结束
     
165.     .如果真 (月 ＝ 9 且 日 ＝ 取整 (年 × 0.2422 ＋ 8.44) － 取整 (年 ÷ 4) 且 年 ≠ 27)
     
166.         节气判断 ＝ “白露”
     
167.     .如果真结束
     
168.     .如果真 (月 ＝ 9 且 日 ＝ 取整 (年 × 0.2422 ＋ 23.822) － 取整 (年 ÷ 4) 且 年 ≠ 42)
     
169.         节气判断 ＝ “秋分”
     
170.     .如果真结束
     
171.     .如果真 (月 ＝ 10 且 日 ＝ 取整 (年 × 0.2422 ＋ 9.098) － 取整 (年 ÷ 4))
     
172.         节气判断 ＝ “寒露”
     
173.     .如果真结束
     
174.     .如果真 (月 ＝ 10 且 日 ＝ 取整 (年 × 0.2422 ＋ 24.218) － 取整 (年 ÷ 4))
     
175.         节气判断 ＝ “霜降”
     
176.     .如果真结束
     
177.     .如果真 (月 ＝ 11 且 日 ＝ 取整 (年 × 0.2422 ＋ 8.218) － 取整 (年 ÷ 4))
     
178.         节气判断 ＝ “立冬”
     
179.     .如果真结束
     
180.     .如果真 (月 ＝ 11 且 日 ＝ 取整 (年 × 0.2422 ＋ 23.08) － 取整 (年 ÷ 4) 且 年 ≠ 78)
     
181.         节气判断 ＝ “小雪”
     
182.     .如果真结束
     
183.     .如果真 (月 ＝ 12 且 日 ＝ 取整 (年 × 0.2422 ＋ 7.9) － 取整 (年 ÷ 4) 且 年 ≠ 54)
     
184.         节气判断 ＝ “大雪”
     
185.     .如果真结束
     
186.     .如果真 (月 ＝ 12 且 日 ＝ 取整 (年 × 0.2422 ＋ 22.6) － 取整 (年 ÷ 4) 且 年 ≠ 18)
     
187.         节气判断 ＝ “冬至”
     
188.     .如果真结束
     
189.     .如果真 (月 ＝ 1 且 日 ＝ 取整 (年 × 0.2422 ＋ 6.11) － 取整 (年 ÷ 4) 且 年 ≠ 82)
     
190.         节气判断 ＝ “小寒”
     
191.     .如果真结束
     
192.     .如果真 (月 ＝ 1 且 日 ＝ 取整 (年 × 0.2422 ＋ 20.84) － 取整 (年 ÷ 4))
     
193.         节气判断 ＝ “大寒”
     
194.     .如果真结束
     
195.     ' 以下为20世纪特殊年份判断
     
196.     .如果真 (月 ＝ 5 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 6.318) － 取整 (年 ÷ 4) 且 年 ≠ 11)
     
197.         节气判断 ＝ “立夏”
     
198.     .如果真结束
     
199.     .如果真 (月 ＝ 6 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 6.5) － 取整 (年 ÷ 4) 且 年 ≠ 2)
     
200.         节气判断 ＝ “芒种”
     
201.     .如果真结束
     
202.     .如果真 (月 ＝ 6 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 22.2) － 取整 (年 ÷ 4) 且 年 ≠ 28)
     
203.         节气判断 ＝ “夏至”
     
204.     .如果真结束
     
205.     .如果真 (月 ＝ 7 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 7.928) － 取整 (年 ÷ 4) 且 年 ≠ 25)
     
206.         节气判断 ＝ “小暑”
     
207.     .如果真结束
     
208.     .如果真 (月 ＝ 7 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 23.65) － 取整 (年 ÷ 4) 且 年 ≠ 22)
     
209.         节气判断 ＝ “大暑”
     
210.     .如果真结束
     
211.     .如果真 (月 ＝ 9 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 8.44) － 取整 (年 ÷ 4) 且 年 ≠ 27)
     
212.         节气判断 ＝ “白露”
     
213.     .如果真结束
     
214.     .如果真 (月 ＝ 9 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 23.822) － 取整 (年 ÷ 4) 且 年 ≠ 42)
     
215.         节气判断 ＝ “秋分”
     
216.     .如果真结束
     
217.     .如果真 (月 ＝ 11 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 23.08) － 取整 (年 ÷ 4) 且 年 ≠ 78)
     
218.         节气判断 ＝ “小雪”
     
219.     .如果真结束
     
220.     .如果真 (月 ＝ 12 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 7.9) － 取整 (年 ÷ 4) 且 年 ≠ 54)
     
221.         节气判断 ＝ “大雪”
     
222.     .如果真结束
     
223.     .如果真 (月 ＝ 12 且 日 ＋ 1 ＝ 取整 (年 × 0.2422 ＋ 22.6) － 取整 (年 ÷ 4) 且 年 ≠ 18)
     
224.         节气判断 ＝ “冬至”
     
225.     .如果真结束
     
226.     .如果真 (月 ＝ 1 且 日 － 1 ＝ 取整 (年 × 0.2422 ＋ 6.11) － 取整 (年 ÷ 4) 且 年 ≠ 82)
     
227.         节气判断 ＝ “小寒”
     
228.     .如果真结束
     
229. 
     
230. .如果真结束
     
231. 
     
232. 返回 (节气判断)
     

复制代码

wang981942

为什么要这么讲 自己揣摩吧~

然后说下

直接判断年份范围 -> 月份(在这里还能判断是否特殊例外) -> 通过寿星计算公式计算出日是否成立不好吗~

最后别再说上源码了~

xiaogeizi

Hoibben 发表于 2019-10-5 17:06
我去哦 这个必须得吐槽下 别动不动就收到收到 看都不看就添加进去 精易模块已经够“大”了~

回到正题
...

是不是不对?  看来要改一下才能用啊

van944527

这个厉害了

Hoibben

项目部004 发表于 2019-9-16 15:18
收到

我去哦 这个必须得吐槽下 别动不动就收到收到 看都不看就添加进去 精易模块已经够“大”了~

回到正题
通过这个代码上看存在好几个问题啊

21世纪的特殊例外的节气不是都在2月
20世纪的立秋C值错误 应该是28.35而不是7.5

上面两个很明显是复制粘贴的问题
还有个关键的前后各两个节气好像并没有做处理
这个就导致部分节气计算不正确 如[2020年2月4日]为立春 计算错误返回空

再来说这个写法
简直没法看

全都用 如果真 还用 且
再说一次
真的没法看

为什么要这么讲 自己揣摩吧~

然后说下

直接判断年份范围 -> 月份(在这里还能判断是否特殊例外) -> 通过寿星计算公式计算出日是否成立不好吗~

最后别再说上源码了~

@冰点 @果子 @兔子君 @雁子

项目部004

收到

yhywhh123

资料来源：https://www.jianshu.com/p/1f814c6bb475