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

9 votes171 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote156 views1 answer
Windows Forms dark title bar
VBA
5 votes128 views1 answer
Excel formula how to create strings containing double quotes
VBA
2 votes124 views2 answers
Constructor vb.net
VBA
0 vote121 views1 answer
Excel vba ternary
VBA
1 vote120 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
0 vote132 views1 answer
Vbnet revrese the order of character in string
VBA
0 vote124 views1 answer
Worksheet.pastespecial textbox
VBA
6 votes127 views1 answer
Excel vba check if a string only contains letters
VBA
5 votes128 views1 answer
Xlvba double quotes in string literal
VBA