很简单的一个问题,但我不会.5555急,

Question

怎么才能表示出两个时间的间隔,
从开始到停止计时,显示记录的时间数,

Answer 1

Dim beginTime As Date, endTime As Date, useTime As SinglePrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    beginTime = Timer
Else
    endTime = Timer
    Print "左右键点击时间间隔为" & endTime - beginTime & "秒"
End If
End Sub

Answer 2

Dim beginTime As Date, endTime As Date, useTime As StringPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    beginTime = Time
Else
    endTime = Time
    useTime = "时间间隔为：" & Hour(endTime) - Hour(beginTime) & "时" & Minute(endTime) - Minute(beginTime) & "分" & Second(endTime) - Second(beginTime) & "秒"
    Print useTime
End If
End Sub

Answer 3

使用Datediff()函数四Dim starTime As Date
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    starTime = Time
Else
    Print DateDiff("s", starTime, Time)
End If
End Sub