测试应用程序运行的总耗费时间
Dim Start As Long
'在应用load处添加以下代码
Start = Timer()
'在应用程序运行结束前添加以下代码
"总耗费时间 " + (Timer() - Start).ToString + " 毫秒"
'调用的时间函数
Public Function Timer() As Long
Return (Now.Hour * 3600 + Now.Minute * 60 + Now.Second) * 1000 + Now.Millisecond
End Function
转载于:https://www.cnblogs.com/z-y/archive/2006/07/27/461525.html
本文介绍了一种使用Visual Basic中的Timer函数来测量应用程序运行总时间的方法。通过在程序开始时记录时间并在结束时再次读取时间,可以计算出总的运行时间。
927

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



