Программа 16.10. Сделать паузу на заданное количество секунд в работе приложения
Программа 16.10. Сделать паузу на заданное количество секунд в работе приложения
Public Sub doPause(seconds As Integer) Dim var_timeStart, var_timeCurrent Dim ftimeOut As Boolean
var_timeStart = Time() ' Время начала паузы Do
' Передать управление другим процессам операционной системы
DoEvents
var_timeCurrent = Time() ' Текущее системное время
ftimeOut = _
CDate(var timeCurrent - var timeStart) >=
CDate(TimeSerial(0, 0, seconds)) Loop Until ftimeOut End Sub