温馨提示:本文翻译自stackoverflow.com,查看原文请点击:excel - VBA how to display real time clock in a userform?
excel excel-vba vba

excel - VBA如何在用户窗体中显示实时时钟?

发布于 2020-04-10 10:23:20

因此,我需要在表单上显示一个实时时钟,但不确定如何。我确实知道代码:

TimeValue(Now)

会给我当前时间,但是我不确定如何在我的表单上连续显示该时间。

我有一个想法,就是将这段代码放入循环中,如下所示:

Dim bool As Boolean
bool = True
Do While bool = True
    Label1.Caption = TimeValue(Now)
Loop

但是我不确定该代码放在哪里。任何建议将不胜感激!

查看更多

提问者
thaweatherman
被浏览
180
thaweatherman 2012-11-29 19:05

我解决了其他人在所选答案中使用给定代码遇到的问题。我删除了最新时间行,并更改了Label1.caption = Now()改为使用Time()。

Sub DisplayCurrentTime()
    Dim nextSecond As Date

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

    Label1.Caption = Time()

    Application.OnTime _
        Procedure:="DisplayCurrentTime", _
        EarliestTime:=nextSecond
End Sub

然后,在我的userform_initialize函数中调用此函数。Label1.caption更改为我的用户窗体上的适当标签。

感谢所有的帮助!