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