主题：[求助]日期大写格式问题

老师：我设计支piao时，大写日期中“年”从日期列取值，得到结果是“贰仟零壹拾陆”而通常支piao格式应为“贰零壹陆”，而我日期列属性中日期时间格式设为data的，怎么才能实现这个格式要求呢？我现在用的DataFormat事件代码：

年：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Year)
End If
另外，窗口控件中文字怎样才能实现自动缩放？

CLDate	将日期转换为小写中文格式
CUDate	将日期转换为大写中文格式
CCDate	将日期转换为大写中文格式，符合支piao格式

 

If e.Value IsNot Nothing Then
    e.Value = CUDate(e.Value).substring(0,4)
End If

窗口控件中文字多了装不下需要换行，字体能自动缩小吗？怎样写代码？

参考

 

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