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