Display time on a label in form

[IceFrogBG]

Hi all,
Now I want to display time on a label in user form.
I already do an other way like that :

Dim t As Double
t = Timer
...
<many process here>
<when finished all process>
MsgBox "DONE!", , Format(Timer - t, "0.0") & "s"

But I want to make a small clock display time count the second,
(Ex : 00:00:00 -> 00:00:01 ->00:00:02 etc...)
Anyone can give me an ideas.
Many thanks

 

[NARAYANK991]

Hi ,

See if this link helps :

https://stackoverflow.com/questions/13449743/vba-how-to-display-real-time-clock-in-a-userform

Narayan

 

[IceFrogBG]

Hi ,

See if this link helps :

https://stackoverflow.com/questions/13449743/vba-how-to-display-real-time-clock-in-a-userform

Narayan

Hi NARAYANK991
Private Sub UserForm_Initialize()

Call DisplayCurrentTime
End Sub
Sub DisplayCurrentTime()
Dim nextSecond As Date

nextSecond = DateAdd("s", 1, now())

Label14.Caption = Time()

Application.OnTime _
Procedure:="DisplayCurrentTime", _
EarliestTime:=nextSecond
End Sub
Label14 only display time but not change.

 

[NARAYANK991]

Hi ,

Declare a variable TimeStore , which will be used to store the time difference ; when you initialize the userform , store the time in this variable ; then change your existing line of code to the following :

Label14.Caption = Time() - TimeStore

Narayan