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