creo que tu código esta mal no?
guardas lo que devuelve second (un valor variant entre 0-59) en un date, por lo tanto el date te lo inicia a por defecto, que es 1900 bla bla bla
luego le sumas a t2, que es una fecha t1 que es el valor por defecto (t1 y t2 valen lo mismo) le sumas los segundos... y luego comparas una fecha con segundos?
bueno estuve revisandola y creo que asi si queda como pretendias
de este modo evitamos el problema que tendríamos al pasarnos del valor 59 si solo lo hiciesemos con segundos
muchas gracias Hendrix
guardas lo que devuelve second (un valor variant entre 0-59) en un date, por lo tanto el date te lo inicia a por defecto, que es 1900 bla bla bla
luego le sumas a t2, que es una fecha t1 que es el valor por defecto (t1 y t2 valen lo mismo) le sumas los segundos... y luego comparas una fecha con segundos?
bueno estuve revisandola y creo que asi si queda como pretendias
Código [Seleccionar]
Private Sub Wait(ByVal nSec As Integer)
'Esperar un número de segundos
Dim t2 As Date
t2 = DateAdd("s", nSec, Now)
Do
DoEvents
Loop While t2 > Now
End Sub
de este modo evitamos el problema que tendríamos al pasarnos del valor 59 si solo lo hiciesemos con segundos
muchas gracias Hendrix