拆分年月日为三个控件就行。
控制好dataformat事件
e.Value = Format(e.Value, "yyyy")
--------------
e.Value = Format(e.Value, "MM")
----------------
e.Value = Format(e.Value, "dd")