Help with issue on Digital Timer VBA Code

[Fred Wayne]

I have made a digital clock timer. it works perfectly, but I don´t not know why instead of displaying "00:00:00", it displays "12:00:02". This is the code I used:

Dim dteStart As Date, dteFinish As Date

    Dim dteStopped As Date, dteElapsed As Date

    Dim boolStopPressed As Boolean, boolResetPressed As Boolean

 



Private Sub btnReset_Click()

    dteStopped = 0

    dteStart = 0

    dteElapsed = 0

    Label1 = "00:00:00"

    boolResetPressed = True

End Sub





Private Sub btnStart_Click()

Start_timer:

    dteStart = Time

    boolStopPressed = False

    boolResetPressed = False

Timer_Loop:

    DoEvents

    dteFinish = Time

    dteElapsed = dteFinish - dteStart + dteStopped

    If Not boolStopPressed = True Then

        Label1 = dteElapsed

        If boolResetPressed = True Then GoTo Start_timer

        GoTo Timer_Loop

    Else

        Exit Sub

    End If

End Sub





Private Sub btnStop_Click()

    boolStopPressed = True

    dteStopped = dteElapsed

End Sub





Private Sub CommandButton1_Click()

Unload Me

End Sub





Private Sub UserForm_INITIALIZE()

    Label1 = "00:00:00"

End Sub

I have skimmed from A to Z and can not find out the why it displays in an incorrect way. It supposes to displays the seconds, and then the minutes according to the time running. I would like you to let me if I am doing anything wrong. I have some screenshots and the original file of the Timer. Thank you so much once again in advance.

 

[Chihiro]

Please use code tag when posting codes in forum. I did it for you this time.


As for your question... In your Sub btn_Start_Click() change the line where you set Label1.
Otherwise, your time is using 12 hour format rather than 24 hour.
Ex:

       Label1 = Format(dteElapsed, "hh:mm:ss")

 

[Fred Wayne]

Thank you very much for the tagging explanation.

 

[Fred Wayne]

I have tried:
Label1 = Format(dteElapsed, "hh:mm:ss")
But it does not work. It keeps displaying "12:00:01" when pressing start or reset button.

 

[Fred Wayne]

I am using Microsoft Windows 10 and Office 2013

 

[Chihiro]

Below is the only change made. Win 10, Office 365.

Private Sub btnStart_Click()
Start_timer:
    dteStart = Time
    boolStopPressed = False
    boolResetPressed = False
Timer_Loop:
    DoEvents
    dteFinish = Time
    dteElapsed = dteFinish - dteStart + dteStopped
    If Not boolStopPressed = True Then
        Label1 = Format(dteElapsed, "hh:mm:ss")
        If boolResetPressed = True Then GoTo Start_timer
        GoTo Timer_Loop
    Else
        Exit Sub
    End If
End Sub

 

[Fred Wayne]

YESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS! YOU ARE AWESOME. EXTRAORDINARY. THANK YOU SO MUCH. YOU ARE THE BEST.