VBA DateSerial 创建日期
根据年、月、日构造日期对象
语法
Function DateSerial(year , month , day) As Date
根据年year、月month、日day，构造日期对象。
示例
Sub sub1()
Dim d1 As Date
d1 = DateSerial(2023, 6, 5) '根据年月日构造对象
Debug.Print d1 '输出 2023/6/5
'访问日期对象的日期部分
Debug.Print "年:" & Year(d1) & ",月:" & Month(d1)
End Sub
运行结果：
2023/6/5
年:2023,月:6