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

使用Timer 函数来实现。

Timer 函数，返回一汪如个手谨 Single，代表从午夜开始到现在经过的秒数。困薯启

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

Dim d As Date, d1 As String

d = #8:01:00 AM# '实际应用中可以通过控件来输入时间，比如 d = CDate(Text1.Text)

Open "d:\123.txt" For Input As #1   '文件名自己改

Do Until EOF(1)

   Line Input #1, d1

   If IsDate(d1) Then '判断txt文件中每一行是不是时间迅羡格式，以排除空行等特殊情况

      If d < CDate(d1) Then

         MsgBox d & "和" & d1 & "相差" & DateDiff("s", d, CDate(d1)) & "秒"

         Exit Do

      End If

   End If

Loop

Close #1

如果你想把两个时间的差亩薯拍值弄成标准的时间格式而不是秒，那么上述第八行改为：

MsgBox d & "和手丛" & d1 & "相差" & CDate(CDate(d1) - d)

你把你的代码发来看数迹一下，描述不太清楚

For i = 1 To 1000000

If ProgressBar1.Value <1000000 Then

ProgressBar1.Value = ProgressBar1.Value + 1

End If

你键余是写在一个过程里，当然是顺序接薯亮并着向下走的，如果你要进度条一秒一次就改成

ProgressBar1.Value = ProgressBar1.Value + 1

时钟代码和按钮代码是分开走的

---