VBA（VB）中实现延时（等待）的3种方法

gwjkkkkk

留印，学习，不错

sh11105

标记，非常有用，谢谢

zhhmok

Application.Wait DateAdd("s", Rnd() + 1, Now)
注：Rnd()产生小于1的随机数，在用Rnd()之前加上一句  Randomize  （真随机，不是伪随机），实现1秒多的随机暂停。

scabell

学习了，感谢分享。

炎猪

weiyingde 发表于 2019-10-7 12:51
b时间相关函数
━━━━━━━━━━━━━━━━━━━━━━━━━
timeGetTime只能精确到18毫秒

timeGetTime只能精确到18毫秒
timer 控件只能精确到55毫秒

这个确实没太懂，试了一下，timeGetTime可以到1毫秒啊，为啥是只能精确到18毫秒。

caiyu93

用gettickcount啊,普通方法过午夜失效

lbpp

今天刚写了一个

1. Public Sub PauseProgram(Optional iSec As Integer = 1)
   
2.    
   
3.     ' 停止程序运行(延迟) iSec 秒
   
4.     Dim i As Integer
   
5.    
   
6.     For i = 1 To iSec
   
7.     Application.Wait (Now + TimeValue("0:00:01"))
   
8.     Next i
   
9.    
   
10. End Sub

复制代码