史萊姆論壇 - 請問access如何設計"Timer"的按鈕呢?!

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - 請問access如何設計"Timer"的按鈕呢?! (http://forum.slime.com.tw/thread181556.html)

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

請教前輩們,小弟希望設計按鈕可以將起始時間分別紀錄下來
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