Sub 测试代码执行时间()
Dim tim1, tim2
tim1 = Timer
'---这中间请放置您要测试执行时间的代码---
tim2 = Timer
MsgBox Format(tim2 - tim1, "程序执行时间为:0.00秒"), 64, "时间统计"
End Sub
05-14
1万+
11-23
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交