| C McHale wrote: | |
|
Hi,
Drop a ProgressBar on your FORM and add the following highlighted code.
In fact I have changed and added to the entire code.
You could even add two dateTimePicker controls to your FORM to select the START and the END date and use the value property in your code.
E.G.
Date1 = DateTimePicker1.Value
2 minutes is a fair time if the user does not see something happening.
Note I made the maximum value 42 which is the same as the number of days in the DO LOOP.
6 years will be 2192 days or 2191 days depending on whether 2 leap years are covered or not.
date1 = Convert.ToDateTime(
"01/01/2009 00:00:00") 'January 1st, 2009.date2 = Convert.ToDateTime(
"12/31/2014 00:00:00") 'December 31st,2014.
'is 2191 days.
date1 = Convert.ToDateTime(
"01/01/2008 00:00:00") 'January 1st, 2008.date2 = Convert.ToDateTime(
"12/31/2013 00:00:00") 'December 31st,2013.
'is 2192 days.
Regards,
John
Public
Class Form1Private numberOfDays As TimeSpan
Private date1 AsDate
Private date2 AsDatePrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
My.Application.ChangeCulture("en-Us")
'6 years from 2008 to 2013 inclusive.
date1 = Convert.ToDateTime(
"01/01/2009 00:00:00") 'January 1st, 2008.date2 = Convert.ToDateTime(
"12/31/2014 00:00:00") 'December 31st,2013.numberOfDays = date2.Subtract(date1)
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = numberOfDays.Days + 1
MessageBox.Show(
"Running for "& (numberOfDays.Days + 1).ToString & " days.")EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Set a DATE.
Dim myDate AsDate = date1Dim 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.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!! ****"& vbCrLfCase DayOfWeek.Sunday'Add 1 day if it is a Sunday.myDate = myDate.AddDays(1)
loopCount_NumberOfDays += 1
outputString &=
"**** Sunday skipped!! ****"& vbCrLfEndSelectProgressBar1.Increment(1)
'Loop for 42 days in total.LoopUntil loopCount_NumberOfDays = numberOfDays.Days + 1MessageBox.Show(outputString)
MessageBox.Show(
"Loop ran for "& loopCount_NumberOfDays.ToString & " days.")EndSubEnd
Class