Question

VB中如何计算时间差?

最好的代码有吗？

Answer 1

Dim h(2), m(2)
Private Sub Command1_Click()
Text1.Text = Now()
h(0) = Hour(Now)
m(0) = Minute(Now)
End Sub

Private Sub Command2_Click()
Text2.Text = Now()
h(1) = Hour(Now)
m(1) = Minute(Now)
End Sub

Private Sub Command3_Click()
Text3.Text = h(1) - h(0) & " : " & m(1) - m(0)
End Sub