计算某一时间段中周一有几天

多少后？

如：2月3日到3月5日之间有几天是周一，依次类推有几天周二，周三，周四，周五等，请指教

shiruiqiang

fzxba

Sub test0()
  Dim dict As Object, d As Date
  Set dict = CreateObject("Scripting.Dictionary")
  For d = DateValue("2月3日") To DateValue("3月5日")
    dict(Format(d, "AAA")) = dict(Format(d, "AAA")) + 1
  Next
  Range("A11").Resize(dict.Count, 2) = WorksheetFunction.Transpose(Array(dict.Keys, dict.Items))
  Set dict = Nothing
End Sub

gwjkkkkk

请参考图片。。。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim dteStart As Date, dteEnd As Date, n&
   
    dteStart = #2/3/2024# - 1
    dteEnd = #3/5/2024#
    Do
        dteStart = DateAdd("d", 1, dteStart)
        If WorksheetFunction.Weekday(dteStart) = 2 Then n = n + 1
    Loop Until dteStart = dteEnd
   MsgBox n
   
End Sub

ykcbf1100

参与一下。。。

ykcbf1100

代码如下：

1. Sub test()
   
2.     Dim result As Integer
   
3.     result = ts()
   
4.     MsgBox "2月3日到3月5日之间有 " & result & " 天是周一"
   
5. End Sub
   
6. 
   
7. Function ts() As Integer
   
8.     rq1 = DateSerial(Year(Date), 2, 3) ' 设置开始日期为2月3日
   
9.     rq2 = DateSerial(Year(Date), 3, 5) ' 设置结束日期为3月5日
   
10.     count = 0
    
11.     For i = 0 To DateDiff("d", rq1, rq2)
    
12.         If Weekday(rq1 + i) = 1 Then      '//=1是周一,=2是周二
    
13.             count = count + 1
    
14.         End If
    
15.     Next i
    
16.     ts = count
    
17. End Function
    

复制代码

多少后？

感谢各位指导。