I'd like to assign the current time + 10 seconds to variable, TriggerTime.
Then I'll compare TriggerTime with the current time later in a code loop,
and if the current time is greater, then branch to other code. Seems as
though this should be simple, but I'm not getting it.
Thanks.
Bert

Sub time_it()
MsgBox (Time + 10)
End Sub

later compare to Time
--
Gary''s Student - gsnu200765


"Bert" wrote:

> I'd like to assign the current time + 10 seconds to variable, TriggerTime.
> Then I'll compare TriggerTime with the current time later in a code loop,
> and if the current time is greater, then branch to other code. Seems as
> though this should be simple, but I'm not getting it.
> Thanks.
> Bert
>
>
>

Try this:-

Sub TimeTest()

Dim dbl10Sec As Double
Dim TriggerTime As Double

dbl10Sec = TimeSerial(0, 0, 10)
TriggerTime = Time + dbl10Sec

If TimeTrigger > Time Then
MsgBox Time & " - " & Format(TriggerTime, "hh:mm:ss")
End If

End Sub

James