函数返回当前系统日期。
date()
添加按钮并添加以下功能。
Private Sub Constant_demo_Click() Dim a as Variant a = date() msgbox "The Value of a : " & a End Sub
执行该函数时,它会生成以下输出。
The Value of a : 19/07/2014