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 vote373 views1 answer
Rotate image by any angle vb.net
VBA
0 vote390 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote398 views1 answer
Vba boolean to string
VBA
0 vote366 views1 answer
Vba code for cutoff time
VBA
0 vote338 views1 answer
Enter into cells data grid view
VBA
8 votes437 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote364 views1 answer
Internet explorer reference vba
VBA
0 vote375 views1 answer
Send text to clipboard vb.net
VBA
0 vote364 views1 answer
String contins in vba
VBA
1 vote365 views2 answers
Vba string to date
VBA