Excel vba first working day month

' 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

Similar codes

0 vote154 views1 answer
Le contrôle SpinButton (Toupie)
VBA
1 vote165 views1 answer
Excel vba hide zero values
VBA
20 votes317 views1 answer
Excel vba recursive example factorial function
VBA
0 vote169 views1 answer
Select case vba
VBA
0 vote170 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote206 views1 answer
Set datetimepicker value to null vb
VBA
0 vote128 views1 answer
Vbide vbproject reference
VBA
0 vote168 views1 answer
Vba static variable
VBA
0 vote176 views1 answer
Vba DisplayGridlines
VBA
0 vote172 views1 answer
Excel vba StartUpPosition
VBA