一)sleep
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
(二)
Sub Delay(s As Double)
Dim StartTimer As Variant
Dim OldTimer As Variant
Dim DelayYear As Long, DelayDay As Integer
StartTimer = Timer
Do
DoEvents
If Timer < OldTimer Then
If DelayDay > 365 Then
DelayYear = DelayYear + 1
DelayDay = 0
Else
DelayDay = DelayDay + 1
End If
End If
OldTimer = Timer
Loop Until (DelayYear * 365 + DelayDay) * 86400 + Timer - StartTimer > s
End Sub