兄弟们帮我看看这个秒表vb代码啊

Question

最简易的秒表，但做出来经过时间和结束时间是一样了，不知道哪错了，大家帮帮我啊！！！！感谢！！代码如下
Private Sub Command1_Click()
startime = Now
Label4.Caption = Format(startime, "hh:mm:ss")

End Sub

Private Sub Command2_Click()
endtime = Now
passtime = endtime - startime
Label5.Caption = Format(endtime, "hh:mm:ss")
Label6.Caption = Format(passtime, "hh:mm:ss")
End Sub
我再贴个图
这是图，大家看看

Answer 1

楼上代码的时间是静止的，综合1楼和2楼代码及截图如下
Dim startime As Date
Dim endtime As Date
Dim passtime As Date
Private Sub Command3_Click()
startime = Now
Label2.Caption = Format(startime, "hh:nn:ss")
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Command4_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
endtime = Now
passtime = endtime - startime
Label3.Caption = Format(endtime, "hh:mm:ss")
Label4.Caption = Format(passtime, "hh:mm:ss")
End Sub

Answer 2

哦，你得用timer

Private Sub Command1_Click()
startime = Now
Label4.Caption = Format(startime, "hh:mm:ss")
timer1.enable=true

End Sub

sub timer1_timer
endtime = Now
passtime = endtime - startime
Label5.Caption = Format(endtime, "hh:mm:ss")
Label6.Caption = Format(passtime, "hh:mm:ss")
end sub

Answer 3

首先，你得定义startime为全局变量，不然在command2中没办法得到按钮1中的时间，下面是我的代码，测试，可以用的
Public startime As Date
Private Sub Command1_Click()
startime = Now
Label4.Caption = Format(startime, "hh:nn:ss")

End Sub

Private Sub Command2_Click()
endtime = Now
Label5.Caption = Format(endtime, "hh:mm:ss")
Label6.Caption = DateDiff("s", startime, endtime)
End Sub

Answer 4

楼上代码时间是静止的，综合1楼和2楼代码，运行截图及代码如下：

Dim startime As Date

Dim endtime As Date

Dim passtime As Date

Private Sub Command3_Click()

startime = Now

Label2.Caption = Format(startime, "hh:nn:ss")

Timer1.Interval = 100

Timer1.Enabled = True

End Sub

Private Sub Command4_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

endtime = Now

passtime = endtime - startime

Label3.Caption = Format(endtime, "hh:mm:ss")

Label4.Caption = Format(passtime, "hh:mm:ss")

End Sub