主题：日期转换年出现了错误

piao据设计 ====> 实战演练二

5、大写日期的解决办法类似，同样将年、月、日三个控件绑定到日期列，然后分别设置其DataFormat事件代码：

年：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Year) 
End If

月：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Month)
End If

日：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Day)
End If