Timer Check for Days to Offline

[benitez]

Hi All,
I am using VB6. Iam new to VB6
I am new here looking for a solution to test for starttime and endtime of a time/day window. The users will input days of the week i.e. mon-Sun and the Starttime and Endtime for each day selected. Example a user can select Fri - Sun checkboxes and in each day choose a starttime of 07:00 and endtime 23:00 so the form will look like (no enetered values for Mon - Thurs) - System Offline settings forms

Checkbox Starttime textbox EndTime textbox
-------------------------------------------------------------------------
X Friday 07:00 23:59
X Saturday 00:00 23:59
X Sunday 00:00 19:59
Monday
Tue

Hence I want a counter to start counting down to when the system is about to go offline. Say on Friday at 06:00 the display counter will say " Time to OFFLINE 01:00:00 etc.

Hence my problem is on Monday how can i test for friday and have the counter start counting.

How will i design a do Loop to test for this condition ie. Do while xtime is not friday <starttime>

loop

I have done most the form and using GetSetting and SaveSetting for the values

The only problem it the timer loop to test for what user has selected and do the counter

Please help

Many thanks

Benitez

[nev]

I am new here looking for a solution to test for starttime and endtime of a time/day window ...

The timer should be enabled at all times. In the timer tick event place code something like...

select case currentday
   case friday
      if currenttime = fridaystarttime - 1 hour then
         lblcountdown.text = fridaystarttime - currenttime & "till shutdown..."
      end if
   case saturday
   case sunday
   case and-so-on
end select

I don't understand what you mean by this...
"Hence my problem is on Monday how can I test for Friday and have the counter start counting."

Note: I did not bother the performance of this code. You do the necessary changes to make it process faster.

[benitez]

Hi Nev,
Thanks for the quick response. I will try this logic and will let you know.
What I mean is if the day is Monday how will i count to Friday's starttime if Friday 19:00 is selected as the shutdown day, because there are upto 3 days inbetween same with tues as there are 2 days to count and so on.

Kind REgards.

Benitez

[Killer42]

The first thing I'd suggest is to write a couple of functions to (a) identify the next "down time", and (b) calculate the time remaining until then. Once you create them, even if you haven't filled in what they do yet, you can go ahead with building the logic that uses them. For instance...

Public Function NextDownTime() As Date
  ' This function will determine the next time that the
  ' system is scheduled to go down.
End Function
 
Public Sub GetTimeRemaining(ByVal Until As Date, NumDays As Long, NumHours As Long, NumMins As Long, NumSeconds As Long)
 
End Sub

Then, in a timer for example, you can code something like...

Dim DD As Long, HH As Long, II As Long, SS As Long
  GetTimeRemaining NextDownTime(), DD, HH, II, SS
  txtRemaining.Text = "Time to OFFLINE... " & _
      DD & " days, " & HH & " hours, " & II & " minutes, " & _
      SS & " seconds."
 

As for the guts of the NextDownTime() function... hm... how about you start at Weekday(Now()) and loop through the day numbers until you hit one which has downtime. Unless it's the same day and earlier than Now() it must be the next one to occur.