VBA之六--EXCEL VBA两则

函数作用:自动获取指定月的工作日

'################################################################ 

Sub 自动填充工作日(month1 As Integer)

    '获取指定月份天数

    Dim days As Integer

    Dim xdate As Date

    xdate = CDate("2008-" + CStr(month1))

    '初始化公共变量Col2的值

    col2 = 4

    '调用自定义Mday()函数获取指定月份的天数

    days = MDay(xdate)

    '循环获取指定月份的工作日

    For i = 1 To days

        '声明变量保存指定日期

        Dim Curdate As String

        Curdate = "2008-" + CStr(month1) + "-" + _

                  CStr(i)

        '判断指定日期是否为工作日

        If Weekday(CDate(Curdate)) <> vbSaturday _

                   And Weekday(CDate(Curdate)) <> vbSunday Then

            Cells(2, col2) = i

            col2 = col2 + 1

        End If

    Next i

End Sub

'获取指定月份的天数

Public Function MDay(Optional xdate _

                     As Variant = 0) As Integer

    If IsDate(xdate) Then

        MDay = Day(DateSerial(Year(xdate), _

               Month(xdate) + 1, 0))

    Else

        MDay = 0

    End If

End Function