在VBA中可以使用Year、Month和Day函數來獲取日期的年份、月份和日期。
下面是一個示例代碼，演示如何使用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
運行上述代碼，將輸出以下結果：
