currentDate As DateTime = DateTime.Now.AddDays(1) ’ Start from tomorrow
Define the list of holidays
holidays As List(Of DateTime) = New List(Of DateTime) From {#1/10/2024#} ’ Add your holidays here
While currentDate.DayOfWeek = DayOfWeek.Saturday OrElse currentDate.DayOfWeek = DayOfWeek.Sunday OrElse holidays.Contains(currentDate)
currentDate = currentDate.AddDays(1)
End While
Hey @mountie ,
I found and tested solution for you:
First, define a list of holidays.
VB code 1 :
Dim holidays As New List(Of DateTime) From {
New DateTime(2024, 1, 10) // Add more holidays as needed
}
Calculate the next business day
VB code 2:
Dim currentDate As DateTime = DateTime.Today // Or set a specific date
Dim nextBusinessDay As DateTime = currentDate.AddDays(1)
While nextBusinessDay.DayOfWeek = DayOfWeek.Saturday OrElse nextBusinessDay.DayOfWeek = DayOfWeek.Sunday OrElse holidays.Contains(nextBusinessDay)
nextBusinessDay = nextBusinessDay.AddDays(1)
End While