我是VB初学者，请教高手如何把系统的年月日转换成汉字显示在text 或label控件上？

text1.text=format(date,"yyyy年mm月dd日")

不行啊 还是显示“2006”

Text1.Text = Format(Date,"0000年#0月#0日")

text1.text=format(date,"yyyy年mm月dd日")

谢谢大家 可是我的意思是 “2006年4月10日” 变成 “贰零零陆年肆月十日”

http://www.bc-cn.net/bbs/dispbbs.asp?boardID=6&ID=55403&page=1

For a = 0 To 3
Text1 = Text1 + Left(Right("零壹贰叁肆伍陆柒捌玖", 10 - Left(Right(Format(Date, "yyyy"), 4 - a), 1)), 1)
Next a

此方法为对年的处理,可参考此方法做对月和日的处理
只是要多考虑关于月日的位数问题.
如:23日 不能是"贰叁日" 而是"贰拾叁日"
8月 是"捌月" 不能是"零捌月"

如上的,要对位数进行判断,去"零"或是中间插入"拾",你自已研究吧.

谢谢大家