Timer y Medianoche de Joe LeVasseur
Fecha: 09/Feb/1997
La función Timer devuelve los
segundos que han pasado desde medianoche. Mira la línea 12, ahí
está el truco.
Sub WaitSeconds(N as Integer) 'Este sub es como delay en Pascal Dim NowTimer As Double Dim BeginTimer As Double Dim TimeDiff As Integer BeginTimer = Timer Do DoEvents NowTimer = Timer If NowTimer < BeginTimer Then TimeDiff = 86400 + NowTimer - BeginTimer 'A ver si ha pasado la medianoche Else TimeDiff = NowTimer - BeginTimer End If Loop Until TimeDiff >= N End Sub
Visita las páginas de Joe LeVasseur, el autor de SSStart y Yankee Clipper
http://www.tiac.net/users/lvasseur/ssstart.html
Página personal: http://www.tiac.net/users/lvasseur/