VBAで現在の日付を取得する方法

VBAでは、Date関数で現在の日付を取得することができます。この関数の返り値を、変数に代入し利用できます。

サンプルコードは以下のとおりです。

Sub GetCurrentDate()
    Dim currentDate As Date
    currentDate = Date
    MsgBox "当前日期是：" & currentDate
End Sub

このコードではDate関数を使用して現在の日付を取得し、それをcurrentDateという変数に格納します。その後、MsgBox関数を使用してメッセージボックスに現在の日付を表示します。