Checking the time.

StevenD · Feb 22, 2005

Hi,

I have the following code.

Code:

If Time < #1:18:59 PM# And Time >#1:20:01 PM# Then
runonce = 1
End If
If runonce = 0 Then
If Time < #1:19:00 PM# And Time >#1:20:00 PM# Then
runonce = 1
'Do work at this point
End If

The code works fine, but where do i put it so that it will be checked every 30 seconds or continuosly?

P Sitaram · Feb 22, 2005

See if this helps:

http://www.cpearson.com/excel/ontime.htm

StevenD · Feb 22, 2005

Thanks Sitaram,

I'm unsure where to place the top three lines?

Code:

Public RunWhen As Double
Public Const cRunIntervalSeconds = 120    ' two minutes
Public Const cRunWhat = "The_Sub"

P Sitaram · Feb 22, 2005

Insert a Module and paste at the beginning.

Checking the time.

StevenD

Active Member

Excel Facts

P Sitaram

Well-known Member

StevenD

Active Member

P Sitaram

Well-known Member

Similar threads

Forum statistics

Share this page

Checking the time.

StevenD

Active Member

Excel Facts

P Sitaram

Well-known Member

StevenD

Active Member

P Sitaram

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock