急的問題(送分)

[lovewith]

如何測試程序的運行時間

[fzn0621]

开始运行的时候记下时间，结束的时候（或你想知道运行多少时间了的时候）在把当前时间减去运行时的时间，就可以了。

[lovewith]

具體怎樣實現。說來聽聽

[fzn0621]

Dim startTime As String

Private Sub Command1_Click()
Dim nowTime As String
nowTime = Time
Me.Caption = "程序总共运行了: " & (CLng(Left(nowTime, 2)) - CLng(Left(startTime, 2))) * 3600 + (CLng(Mid(nowTime, 4, 2)) - CLng(Mid(startTime, 4, 2))) * 60 + CLng(Right(nowTime, 2)) - CLng(Right(startTime, 2)) & "秒"
End Sub

Private Sub Form_Load()
startTime = Time
End Sub

仓促写的代码，也许效率方面不太好。反正就是这么个意思，你明白就行了~ ^_^
祝你编程愉快。

[cd_dragon]

用timer，xixi