在VBA中生成星期六的数量

Function CountSaturdays(ByVal startDate As Date, ByVal endDate As Date) As Integer
    Dim count As Integer
    Dim currentDate As Date
    
    count = 0
    currentDate = startDate
    
    ' 循环遍历日期范围内的每一天
    Do While currentDate <= endDate
        ' 判断当前日期是否为星期六
        If Weekday(currentDate) = vbSaturday Then
            count = count + 1
        End If
        
        ' 将当前日期增加一天
        currentDate = currentDate + 1
    Loop
    
    CountSaturdays = count
End Function

Dim startDate As Date
Dim endDate As Date
Dim numSaturdays As Integer

startDate = DateSerial(2022, 1, 1)
endDate = DateSerial(2022, 12, 31)

numSaturdays = CountSaturdays(startDate, endDate)

MsgBox "2022年1月1日到2022年12月31日之间有 " & numSaturdays & " 个星期六。"