请教VB中一个计算用时的问题

来源:百度知道 编辑:UC知道 时间:2024/05/22 06:01:25
我想测测运行一段程序所需多长时间,用什么方法能精确到ms呢?

Declare Function timeGetTime Lib "winmm.dll" () As Long
Declare Function GetTickCount Lib "kernel32" () As Long

timeGetTime、GetTickCount这两个函数都可以得到开机到现在的时间长,单位毫秒,分别在程序运行开始前和结束后各取一次值,再相减就能得到很精确的时间长,单位是毫秒,如果要得到单位是秒的时长,再除以1000,注意除1000后的值要赋给小数型的变量。
不论是从程序运行的效率上来说,还是从结果的精确上来说,这两个函数都要远高于VB自带的Timer函数,第二个函数比第一个的效率还要高一点点。

自己在窗体开始和窗体卸载时计时,然后相减就可算出