延时函数 

'延时函数
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

 

posted @ 2020-12-20 23:42  大黑山  阅读(378)  评论(0)  编辑  收藏  举报