【求助】区分日期是节假日和工作日的代码

大表良哥

【求助】区分日期是节假日和工作日的代码

q490525427

盲目猜一下，莫非这样

ykcbf1100

判断日期的自定义函数是AI写的，供参考。。。

ykcbf1100

日期判断。。。

1. Sub TestHoliday()
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     For i = 2 To r
   
4.         If IsHoliday(Cells(i, 1)) Then
   
5.             Cells(i, 2) = "节假日"
   
6.         Else
   
7.             Cells(i, 2) = "工作日"
   
8.         End If
   
9.     Next
   
10. End Sub
    
11. 
    
12. Function IsHoliday(dt As Date) As Boolean
    
13.     ' 检查是否为周末
    
14.     If Weekday(dt, vbSunday) = vbSaturday Or Weekday(dt, vbSunday) = vbSunday Then
    
15.         IsHoliday = True
    
16.         Exit Function
    
17.     End If
    
18.    
    
19.     ' 定义节假日
    
20.     Dim arrHolidays As Variant
    
21.     arrHolidays = Array(#1/1/2024#, #2/10/2024#, #2/11/2024#, #2/12/2024#, #2/13/2024#, #2/14/2024#, #2/15/2024#, # _
    
22.         3/8/2024#, #5/1/2024#, #5/2/2024#, #5/3/2024#, #6/1/2024#, #9/10/2024#, #10/1/2024#, #10/2/2024#, #10/3/2024#, # _
    
23.         12/25/2024#)  '// 请根据实际需要添加或删除节假日
    
24.     ' 检查给定日期是否在节假日数组中
    
25.     Dim i As Integer
    
26.     For i = LBound(arrHolidays) To UBound(arrHolidays)
    
27.         If dt = arrHolidays(i) Then
    
28.             IsHoliday = True
    
29.             Exit Function
    
30.         End If
    
31.     Next i
    
32.     ' 如果不是周末也不是列表中的节假日，则认为是工作日
    
33.     IsHoliday = False
    
34. End Function
    
35. 
    

复制代码