请问如何测试程序的运行时间？？迫切求答！

Question

各位高手：
  
    小的编了一段程序，迫切想测试一下这段程序的运行时间，时间精确到毫秒或纳秒！但是不知道如何测试！    听人说可以在程序运行前用一个函数读取系统时间，在程序结束时再读一次，但是，也不知道那个函数叫什么（时间精确到毫秒或纳秒）！    请各位高手帮帮忙！迫切求答！

Answer 1

在你需要的地方加入两个：Debug.print Time然后……看“立即窗口”

Answer 2

可以用timegettime来得到时间进行计算，估计纳秒级的得不到Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As LongSub timeTest()
    Dim startTime As Long,endTime as long
    startTime=timeGetTime
    '......函数过程
    endTime=timeGetTime
    debug.print "执行本过程用了：" & startTime-endTime & "毫秒"
End Sub

Answer 3

上面写反了debug.print "执行本过程用了：" & endTime - startTime & "毫秒"