在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
运行上述代码，将输出以下结果：
