测试应用程序运行的总耗费时间
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
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