So I need to display a real-time clock on my form but I am not sure how. I do know that the code:
TimeValue(Now)
will give me the current t
I solved the issue others were having with the given code in the chosen answer. I removed the latesttime
line and i changed Label1.caption = Now()
to use Time()
instead.
Sub DisplayCurrentTime()
Dim nextSecond As Date
nextSecond = DateAdd("s", 1, Now())
Label1.Caption = Time()
Application.OnTime _
Procedure:="DisplayCurrentTime", _
EarliestTime:=nextSecond
End Sub
I then called this in my userform_initialize
function. Label1.caption
was changed to the appropriate label on my userform
.