实现Access窗体上显示数字时钟的方法和代码

时　间:2022-01-11 11:01:30
作　者:张旭军   ID：72228  城市：杭州
摘　要:实现Access窗体上显示数字时钟的方法和代码。
正　文:

窗体上显示数字时钟的方法和代码，步骤如下：

1》在窗体中选择一个文本框，取名为Time1   
     设置显示大小，居中。边框为透明【目的是与窗体颜色一体】。
2》在窗体中点击最左侧上方“□”   
     在右侧的属性表中“全部”“计时器间隔=1000【间隔1秒显示】”
3》在“计时器触发=代码生成器”输入以下代码：

    Private Sub Form_Timer()
       Dim NowTime As Date
       NowTime = VBA.FormatDateTime(Now(), vbLongTime)
       Me.Time1 = NowTime
   End Sub

4》保存代码，返回即可实现数字时钟显示。

如下图:

效果如下图: