📅  最后修改于: 2022-03-11 14:51:56.700000             🧑  作者: Mango
' 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