関数は、現在のシステム日付を返します。
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