22/01/2005, 11:28
|
| Colaborador | | Fecha de Ingreso: diciembre-2003 Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 10 meses Puntos: 53 | |
Pregunta :
¿Como esperar X segundos?
Respuesta : Una forma de esperar un número determinado de segundos.
Código:
'Si se quiere usar de forma GLOBAL, insertarlo en un Módulo BAS y declararlo como público
Código:
Private Sub Wait(ByVal nSec As Integer)
'Esperar un número de segundos
Dim t1 As Date, t2 As Date
t1 = Second(Now)
t2 = t1 + nSec
Do
DoEvents
Loop While t2 > Second(Now)
End Sub
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila |