Trucos de Visual Basic 6.0 Pausas entre funciones
Quizá necesitemos realizar pausas entre procesos, funciones...
Llamada: Espera(5)
Sub Espera(Segundos As Single)
Dim ComienzoSeg As Single
Dim FinSeg As Single
ComienzoSeg = Timer
FinSeg = ComienzoSeg + Segundos
Do While FinSeg >; Timer
DoEvents
If ComienzoSeg >; Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
End Sub
Pon el truco en tus favoritos
Trucos relacionados de Pausas entre funciones
-
Truco de Visual Basic 6.0, 5 funciones de fechas
Gracias a este truco de visual basic 6.0 podrás: Saber la cantidad de días de un año determinado
Calcular la cantidad de días de un mes específico
Averiguar si un día corresponde a un fin de semana
Averiguar el último día de un Mes determinado
Ave