Question

VB怎么用统计我的软件的运行时间？代码怎么写

如上：
我用VB编写了一个程序 我想设置一个LABEL来显示我的程序从执行到现在的运行时间的一个统计程序 单位为 -小时-分-秒

谢谢大侠指教啊 急！！！

Answer 1

Private s As Integer '声明秒
Private m As Integer '声明分
Private h As Integer '声明小时
Private d As Integer '声明日

'启动程序时设置Timer控件属性并给秒、分、时、日变量赋值
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
s = 0
m = 0
h = 0
d = 0

End Sub

Private Sub Timer1_Timer()
s = s + 1 '每秒钟给s变量加1
If s >= 60 Then
s = 0 '重新计算秒
m = m + 1 '逢秒为60则分钟加1
If m >= 60 Then
m = 0 '重新计算分
h = h + 1 '逢分钟为60则小时加1
If h >= 24 Then
h = 0 '重新计算小时
d = d + 1 '逢24小时则天数加1
End If
End If
End If
Label1.Caption = "本次使用的时间为：" & h & "小时" & m & "分钟" & s & "秒" & vbCrLf
End Sub

Answer 2

Timer控件，时间间隔为1000

Dim t As Date
Private Sub Form_Load()
t = Now
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Now - t, "hh:mm:ss")
End Sub