Hi,
Updated code to skip Christmas Day and New Years Dayas well as weekends to show how to skip holiday dates.
Regards,
John.
Code Block
Public
Class Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Set a DATE.
Dim myDate AsDate = NowDim loopCount_NumberOfDays AsInteger = 0Dim outputString AsString = ""Do'To skip a specific holiday like Christmas Day and New Years day.>>If myDate.Month = 12 And myDate.Day = 25 ThenmyDate = myDate.AddDays(1)
loopCount_NumberOfDays += 1
outputString &=
"**** Christmas Day skipped!! ****"& vbCrLfEndIfIf myDate.Month = 1 And myDate.Day = 1 ThenmyDate = myDate.AddDays(1)
loopCount_NumberOfDays += 1
outputString &=
"**** New Years Day skipped!! ****"& vbCrLfEndIfSelectCase myDate.DayOfWeekCase DayOfWeek.Monday To DayOfWeek.Friday
outputString &= myDate.ToShortDateString & vbCrLf
'Do your calculations here.>>
'Add one to the current date.
myDate = myDate.AddDays(1)
loopCount_NumberOfDays += 1
Case DayOfWeek.Saturday'Add 1 day if it is a Saturday to show the Sunday message!!myDate = myDate.AddDays(1)
loopCount_NumberOfDays += 1
outputString &=
"**** Saturday skipped!! ****"& vbCrLfCase DayOfWeek.Sunday'Add 1 day if it is a Sunday.myDate = myDate.AddDays(1)
loopCount_NumberOfDays += 1
outputString &=
"**** Sunday skipped!! ****"& vbCrLfEndSelect'Loop for 14 days in total.LoopUntil loopCount_NumberOfDays = 14MessageBox.Show(outputString)
MessageBox.Show(
"Loop ran for "& loopCount_NumberOfDays.ToString & " days.")EndSubEnd
Class