VBA how to display real time clock in a userform?

后端 未结 3 541
青春惊慌失措
青春惊慌失措 2021-01-14 12:03

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

3条回答
  •  挽巷
    挽巷 (楼主)
    2021-01-14 12:31

    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.

提交回复
热议问题