Question : excel vba first working day month
Answered by : vastemonde
' 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
Source : | Last Update : Tue, 26 Jan 21