疑問 - 請問access如何設計"Timer"的按鈕呢?!

[lorcas]

請教前輩們,小弟希望設計按鈕可以將起始時間分別紀錄下來
ex 開始時間___ (按鈕) 結束時間__(按鈕) 總計時間____
請問access有任何設計方式可以參考的呢?
請各位前輩指教.

ps.時間格式為幾點幾分.

[劍痞憶秋年]

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

<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