主题：[求助]将日期自动转换为小写中文格式

一个表的 "日期"列，用“内置输入器”输入后，自动转行成中文小写格式，如"二〇一六年七月二十日"。

我在表的DataColChanged事件中写如下代码，出现错误：

Select Case e.DataCol.Name

    Case "日期"

        If e.Value IsNot Nothing Then

            e.Value = CLDate(e.Value).substring(0,4)

        End If

End Select