延时函数

'延时函数
Sub Delay(t As Single)
    Dim timeBegin As Single
    Dim SleepTime As Single
    timeBegin = Timer
    Do
        DoEvents
        SleepTime = Timer - timeBegin
        If SleepTime < 0 Then SleepTime = SleepTime + 86400 '86400=24*60*60
    Loop While SleepTime < t  
End Sub