這個函數返回當前的系統日期。 語法 date() 示例添加一個模組,並添加以下示例代碼 - Private Sub Constant_demo_Click() Dim a as Variant a = date() msgbox "The Value of a : " & a End Sub 執行上面示例代碼,得到以下結果 - 上一篇: VBA日期時間函數 下一篇: VBA數組