DrawCell事件
If e.Col.Name = "日期" andAlso e.Text > "" Then
e.Text = Format(cDate(e.Text), "yyyy")
End If
http://www.foxtable.com/webhelp/scr/1445.htm