VBA Year等 日期部分
返回日期对象的各日期部分：年、月、日、小时、分钟、秒。
语法
| 函数 | 作用 |
|---|---|
| Function Year(date) | 返回date对象的年份 |
| Function Month(date) | 返回date对象的月份 |
| Function Day(date) | 返回date对象的日份（几号） |
| Function Hour(date) | 返回date对象的小时 |
| Function Minute(date) | 返回date对象的分钟 |
| Function Second(date) | 返回date对象的秒 |
示例
Sub sub4()
Dim d1 As Date
d1 = Now
Debug.Print d1
'返回日期部分
Debug.Print "年:" & Year(d1)
Debug.Print "月:" & Month(d1)
Debug.Print "日:" & Day(d1)
Debug.Print "小时:" & Hour(d1)
Debug.Print "分钟:" & Minute(d1)
Debug.Print "秒:" & Second(d1)
End Sub
运行结果：
2023/6/15 16:37:53
年:2023
月:6
日:15
小时:16
分钟:37
秒:53