Hi,
Try something like this and please read my code comments.
Regards,
John
Code Block
Public
Class Form1PrivateSub 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 = ""DoSelectCase myDate.DayOfWeekCase DayOfWeek.Monday To DayOfWeek.FridayoutputString &= 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!! ****"& vbCrLf
Case 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