一个计算函数运行事件的小程序,now(),time(),format()都可以,不过好像这个TimeGetTime()API函数可以精确到1毫秒。
Dim t1 As Variant, t2 As Variant, t As Single
t1 = timeGetTime
Dim myPos As POS
myPos = FindColor("FFFFFF")
t2 = timeGetTime
t =( t2 - t1)/1000
Label2.Caption = t & vbCrLf & myPos.x & dh & myPos.y
本文介绍了一个使用VBA编写的简单程序,该程序利用TimeGetTime API函数实现毫秒级的事件计时。通过记录两次调用TimeGetTime函数的时间差并转换为秒,展示了如何在实际应用中进行高精度计时。
832

被折叠的 条评论
为什么被折叠?



