vba怎么获取日期的年月日

在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

运行上述代码，将输出以下结果：

• 年份：2021
• 月份：4
• 日期：15