您的位置:首页 > 其它

测试应用程序运行的总耗费时间

2006-07-27 23:17 281 查看
测试应用程序运行的总耗费时间

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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: