关于等待的语句
发布者：王书远2019-12-02
做一个延时函数，自己调一下数值就可以了
Private Sub WaitTime(t As Single)
Dim starttime As Single
starttime = Second(Now)
Do Until (60 + Second(Now) - starttime) Mod 60 > t
Loop
End Sub追问
简直看不明
追答将此函数加入，调用方法 WaitTime(60)，就可以等待若干时间。
发布者：王书远2019-12-02
