主题：日期转字符

这样日期是字符型可以，日期时间型不行

Select Case e.DataCol.Name
    Case "日期"
        Select Case e.DataRow("日期").SubString(0,4)
           Case "2013"
                e.DataRow("年份") = "2013年"

        End Select
End Select

（表A）有年份列（字符型）和日期列（日期时间型），日期列输入：2013-05-01，年份列自动生成：2013年。请高手指教