Question

在vb中,如何计算一个程序的执行时间

Answer 1

使用Timer 函数来实现。
Timer 函数，返回一个 Single，代表从午夜开始到现在经过的秒数。

Microsoft Windows中，Timer函数返回一秒的小数部分。

追问

计算一个程序的执行时间，例如画圆等，在画完圆后点击控件出现这个程序的执行时间，要具体步骤流程，谢谢

追答

就是用Timer函数就能解决了。开始时读一个Timer值赋值给一个变量，结束时再读取Timer值，两者之差就可求的的经过多少秒，不就可获得小时和分钟数。

Timer 函数示例

本示例使用 Timer 函数来暂停应用程序。同时用 DoEvents
在暂停期间将控制让给其他进程。

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
   PauseTime = 5   ' 设置暂停时间。
   Start = Timer   ' 设置开始暂停的时刻。
   Do While Timer < Start + PauseTime
      DoEvents   ' 将控制让给其他程序。
   Loop
   Finish = Timer   ' 设置结束时刻。
   TotalTime = Finish - Start   ' 计算总时间。
   MsgBox "Paused for " & TotalTime & " seconds"
Else
   End
End If