写一段VB函数 函数功能是当输入某年某月时返回本年本月中有几个星期日

来源：百度知道 编辑：UC知道 时间：2024/06/30 16:55:36
写一段VB函数 函数功能是当输入某年某月时返回本年本月中有几个星期日
谢谢一楼的答案，授人以鱼不如授人以渔，能否给加点注释，谢谢！

Private Function GetSundays(year As Integer, month As Integer) As Integer'函数定义
Dim sundays As Integer'定义星期天的天数变量

Dim t As String'定义日期字符串变量

For i = 1 To 31'一个月最多31天,
'组合某年月日成一个日期格式的字符串
t = Trim(Str(year)) & "/" & Trim(Str(month)) & "/" & Trim(Str(i))

If IsDate(t) Then'判断是不是一个日期。因为到了某月可能只有28天
'是日期就继续
'判断这一天是不是星期天。如果是就sundays加一1
If Weekday(t) = vbSunday Then sundays = sundays + 1
Else'如果不是日期就退出循环
Exit For
End If

Next
GetSundays = sundays'把星期天天数交给函数返回。
End Function