这个函数返回当前的系统日期。

语法

date()

示例

添加一个模块，并添加以下示例代码 -

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

执行上面示例代码，得到以下结果 -

纠错/补充 收藏