Timer bypass

[farmock]

I have an application that is running on a timer every hour using the following code:
Application.OnTime TimeValue("01:00:00"), "procedure"

I would like to add an If statement so that if the time is between 9:00 PM
and 10:00 PM the timer will skip execution for that hour. I would appreciate any help you can provide. Thanks, Frank

 

[Andrew Poulsom]

Like this?

If Time >= TimeSerial(21, 0, 0) And Time < TimeSerial(21, 0, 0) Then
   Application.OnTime Now + TimeValue("02:00:00"), "procedure" 
Else
   Application.OnTime Now + TimeValue("01:00:00"), "procedure" 
End If

 

[tusharm]

Andrew's kinda on the mark but not quite...at least by my interpretation of the OP's request.

If Time >= TimeSerial(21, 0, 0) And Time < TimeSerial(22, 0, 0) Then
Else
    'Do your stuff
    End If
Application.OnTime Now + TimeValue("01:00:00"), "procedure"

or

'Do your stuff
If Time >= TimeSerial(20, 0, 0) And Time < TimeSerial(21, 0, 0) Then
   Application.OnTime Now + TimeValue("02:00:00"), "procedure"
Else
   Application.OnTime Now + TimeValue("01:00:00"), "procedure"
End If

I prefer the former since it doesn't duplicate the OnTime statement.