VBA Now函数

Now函数返回当前系统日期和时间。

语法

Now()

示例

添加一个按钮，并添加以下功能

Private Sub Constant_demo_Click()
 Dim a as Variant
 a = Now()
 msgbox("The Value of a : " & a)
End Sub

当执行函数输出如下所示：

The Value of a : 19/12/2014 3:04:09 PM