VBAで日付の年月日を取得する方法

VBA では、Year、Month、Day 関数を使用して日付から年、月、日を取得できます。

日付のYYYYMMDDを取得するVBAコードサンプルは以下の通り

Sub GetDateParts()
    Dim myDate As Date
    Dim myYear As Integer
    Dim myMonth As Integer
    Dim myDay As Integer
    
    ' 设置日期
    myDate = DateSerial(2021, 4, 15)
    
    ' 获取年份
    myYear = Year(myDate)
    MsgBox "年份：" & myYear
    
    ' 获取月份
    myMonth = Month(myDate)
    MsgBox "月份：" & myMonth
    
    ' 获取日期
    myDay = Day(myDate)
    MsgBox "日期：" & myDay
End Sub

上記のコードを実行すると、以下が出力されます

1. 年：2021年
2. 月：4
3. 15日付