How can I display a dynamic Clock in my Userform?

[Sebastiandiaz]

In my userform there is a TextBox called "CM_00". I would like this textbox to display the clock in real-time. Is there a code that could help me to get that?

 

[Logit]

.
Call the StartTimer in the Userform_Initialize event :

Option Explicit

Dim T

Sub StartTimer()
    T = Now + TimeValue("00:00:01")
    Application.OnTime T, "Update"
End Sub

Sub Update()
    UserForm.T_01.Value = Format(Now, "hh:mm:ss")
    Call StartTimer
End Sub

 

[Sebastiandiaz]

It works amazing. But I can notice that the StartTimer is running in the back. How can I make it stop once the userform is closed. I need the StartTime to run once the userform is open but it to stops once the userform is closed. Can it be possible?

 

[Sebastiandiaz]

It seems to work, but when you close the userform, you can see the macro of the StartTimer still running in the back, if you put the mouse on aby cell, and pay attention to the pointer, you can see it bounces(like counting the clock beats. So I must go to Macros, search for the Stoptimer and manually make it stop. I saw the code you set(which is incredibly amazing) but it can´t make the macro to stop completely, Is it normal? or that is the only way it should behave!
Thank you so much in advance.

 

[Belleke]

I look for another solution.

 

[Sebastiandiaz]

Thank you so much!!! I know from the bottom of my heart you will get it. You are the best!

 

[Belleke]

Like this?

 

[Sebastiandiaz]

YESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS!!!!! THAT IS WHAT I NEEDED IT! THANK YOU SO MUCH!

 

[Belleke]

You're welcome.

 

[Logit]

This is late but to stop the timer use this macro :

Sub StopTimer()
On Error Resume Next
    Application.OnTime T, Procedure:="Update", Schedule:=False
End Sub

 

[Sebastiandiaz]

And what if instead the clock to display only "01:38:25", Can it display "01/09/2021 01:38:02 AM", always with the clock running? Can this format be applied to TextBox called "CM_00"?
Once again...Thank you in advance!

 

[Belleke]

Here you go.

 

[Sebastiandiaz]

It´s Extraordinarily Amazing! You simply wow me all the time. THANK YOU SO MUCH.

 

[Belleke]

Welcome.