以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]日期大写格式问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81648)
--  作者：scstrty666
--  发布时间：2016/3/2 17:17:00
--  [求助]日期大写格式问题
老师：我设计支票时，大写日期中“年”从日期列取值，得到结果是“贰仟零壹拾陆”而通常支票格式应为“贰零壹陆”，而我日期列属性中日期时间格式设为data的，怎么才能实现这个格式要求呢？我现在用的DataFormat事件代码：

年：

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

[此贴子已经被作者于2016/3/2 17:20:02编辑过]
--  作者：大红袍
--  发布时间：2016/3/2 17:21:00
--  
CLDate 将日期转换为小写中文格式
CUDate 将日期转换为大写中文格式
CCDate 将日期转换为大写中文格式，符合支票格式

 

If e.Value IsNot Nothing Then
    e.Value = CUDate(e.Value).substring(0,4)
End If
--  作者：scstrty666
--  发布时间：2016/3/2 17:30:00
--  
窗口控件中文字多了装不下需要换行，字体能自动缩小吗？怎样写代码？
--  作者：大红袍
--  发布时间：2016/3/2 17:32:00
--  

参考

 

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