vb计算时间差
Private Sub CmdStart_Click()
Label1.Caption = Time '标签1显示开始时间
End Sub
Private Sub CmdStop_Click()
Label2.Caption = Time '标签2显示结束时间
Label3.Caption = Val(Label1.Caption) - Val(Label2.Caption)
'标签3显示开始与结束的时间差(这里结果为0)
End Sub
求：label3.Caption显示出两个时间差的代码……
参考答案:dim a as date
dim b as date
Private Sub CmdStart_Click()
a = Time '标签1显示开始时间
Label1.Caption = a
End Sub
Private Sub CmdStop_Click()
b = Time '标签2显示结束时间
Label2.Caption = b
Label3.Caption = b-a
'标签3显示开始与结束的时间差(这里结果为0)
End Sub