VB程序上，怎样计算出从开始运行到某一条语句时所经历的时间？

来源：百度知道 编辑：UC知道 时间：2024/07/07 20:19:36
急用，感激不尽。
我的是windows xp 系统

声明API函数：
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
然后在开始运行行之前输入以下代码：
dim StartT as long
dim SpendT as long
startt=gettickcount
然后再在最后行后面输入：
spendt=gettickcount-startt
msgbox "耗费时间：" & spendt & "毫秒"
另外，API还可以实现微秒级的计时，但应用稍复杂一些。