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
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