View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Nicole Seibert Nicole Seibert is offline
external usenet poster
 
Posts: 60
Default Workaround for com exe timer?? help

I am going for 30 minutes. My understanding is that the default for time is
seconds; Is this true? Then i would need 1800 seconds asking that no other
processes run.

Also, for the record, KICKIT goes back to the beginning of the SQL Query
request. I am asking that all further processes are suspended and if the
query is not sucessful to restart it after 30 minutes.

Intuitively this has me a little worried since i have already declared the
variables. Do I have to set them to nothing before I declare them again?

Thank you,
Nicole

"Jim Cone" wrote:

Nicole,
Maybe this is what you want...
'---------------
Dim c As Integer, startTimer As Single
c = 0
startTimer = Timer

Do While c = 0
If Range("A2") < "" Then c = 1
If c = 1 Then Exit Do
If Timer startTimer + 30 Then GoTo KickIt
Loop
KickIt:
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Nicole Seibert"

wrote in message
Hi fellow helpers,
I created this little ditty so that I wouldn't have to write the far more
complex
ActiveX exe (and because I have never written an ActiveX exe). The problem
is I get an error with the following code on the starttime = now line.

Dim c As Integer, starttimer As Integer

c = 0
starttimer = Now() (I have also tried this: starttimer = Format(Now,
"h:mm:ss"))

Do While c = 0
If Range("A2") < "" Then c = 1
If c = 1 Then Exit Do
If Now starttimer + TimeValue("0, 30, 0") Then GoTo KICKIT
Loop

I think what is happening is that starttimer may be continually updating to
reflect "NOW", but I don't want it to do this. Is there a way to capture
current time without it updating?

Thanks,
Nicole