[劍痞憶秋年]

下面用了兩種方式
第二種應該比較符合你的需求,但第一種的比較精準(有秒以下的單位)
試試看吧!!!

<1> Dim sngStart As Single, sngEnd As Single
<2> Dim JetStart As Date, JetEnd As Date

Option Compare Database
    Dim sngStart As Single, sngEnd As Single
    Dim sngElapsed As Single
    '
    Dim JetStart As Date, JetEnd As Date

Private Sub cmdJetEnd_Click()
    sngEnd = Timer                                ' 取得結束時間。
     JetEnd = Time
    Label3.Caption = JetEnd
   
    sngElapsed = Format(sngEnd - sngStart, "Fixed")    ' 已耗用時間。
    Label4.Caption = sngElapsed
    Label5.Caption = Format(JetEnd - JetStart, "nn:ss")
    MsgBox ("總計時間：" & sngElapsed _
        & " seconds to run.")

End Sub

Private Sub cmdJetStart_Click()
    sngStart = Timer
    JetStart = Time
    Label2.Caption = JetStart
End Sub