Question

vb如何计算程序运行时间

已经知道系统时间的情况下怎么计算程序运行时间在label中显示出来 谢谢。

Answer 1

Dim StartTime As Date
Private Sub Form_Click()
label1.caption= DateDiff("s", StartTime, Time) '秒为单位 要扩展 自行修改
End Sub

Private Sub Form_load()
StartTime = Time
End Sub

Answer 2

Private Sub Form_Load()
Label1.Caption = Time
End Sub