Year函数返回一个表示指定日期年份的整数。
Year(date)
添加按钮并添加以下功能。
Private Sub Constant_demo_Click() msgbox(Year("2013-06-30")) End sub
执行上述功能时,会产生以下输出。
2013