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