Function 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/07/2013 3:04:09 PM