VB算出星期数

来源：百度知道 编辑：UC知道 时间：2024/09/21 08:38:07
以2008年9月为例
周一 二 三 四 五 六 日

5天 5天 4天 4天 4天 4天 4天

那2008年10月呢?也就是说我想得到输入年月,就可以得出当月各星期(1-7)的天数

Private Sub Command1_Click()
Dim I As Long, X(1 To 7) As Long, nDate As String
Dim DayS As Long, Day1 As String

nDate = "2008-10" '输入年月，可修改

Day1 = DateAdd("m", 1, nDate & "-1")
DayS = DateDiff("d", nDate & "-1", Day1) '当月的天数

For I = 1 To DayS
S = WeekDay(nDate & "-" & I) '星期 I 的天数
X(S) = X(S) + 1
Next

'显示到窗体
Me.Cls
Me.Print nDate & "，共 " & DayS & " 天"
For I = 1 To 7
Me.Print "星期" & XinQi(I) & "：共 " & X(I) & " 天"
Next
End Sub

Private Function XinQi(S As Long) As String
Select Case S
Case 1: XinQi = "日"
Case 2: XinQi = "一"
Case 3: XinQi = "二"
Case 4: XinQi = "三"
Case 5: XinQi = "四"
Case 6: XinQi = "五"
Case Else: XinQi