在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
运行上述代码,将输出以下结果:
辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
推荐阅读: vba中怎么用msgbox设置字体颜色