📜  excel vba 第一个工作日月份 - VBA 代码示例

📅  最后修改于: 2022-03-11 14:51:56.700000             🧑  作者: Mango

代码示例1
' Returns first working day of month (except public holidays)
Public Function FirstWorkingDayOfMonth(ByVal pDate As Date) As Date
    FirstWorkingDayOfMonth = CDate(Application.WorkDay(DateSerial(Year(Date), _
        Month(Date), 1), 0))
End Function

Public Sub TestMe()
    MsgBox FirstWorkingDayOfMonth(Date)
End Sub