主题：[求助]日期转换

piao据打印如何把2014-08-11分别转换为二〇一四，八，十一？

CUDate(Date)
将日期Date转换为大写中文格式
例如：CUDate(#12/31/2008#)
等于：贰零零捌年拾贰月叁拾壹日

CLDate(Date)
将日期Date转换为小写中文格式
例如：CLDate(#12/31/2008#)
等于：二○○八年十二月三十一日

CCDate(Date)
将日期Date转换为大写中文格式，符合支piao格式
例如：CUDate(#2/10/2008#)
等于：贰零零捌年零贰月壹拾日

http://www.foxtable.com/help/topics/1415.htm

2014-08-11由e.value = CLDate(e.value)变为二○一四年八月十一日，如何转为二○一四？

http://www.foxtable.com/help/topics/1415.htm

Dim d As Date = "2014-08-11"
Dim str() As String = CLDate(d).Replace("年", ",").Replace("月",",").Replace("日", "").Split(",")
msgbox(str(0))
msgbox(str(1))
msgbox(str(2))

年的DataFormat：

Dim str() As String = CLDate(e.Value).Replace("年", ",").Replace("月",",").Replace("日", "").Split(",")

 

e.Value = str(0)

ok,谢谢甜老师。