以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期转换成大写字母  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91510)

--  作者:积水成渊
--  发布时间:2016/10/12 14:05:00
--  [求助]日期转换成大写字母
 在做支票打印的时候,在表达式这块遇到点问题,例如在excel表中有日期2016—10—12,我现在需要获取日期中的年2016并且将他转换成大写 贰零壹陆。我采用了表达式

<CUNumber(Year([金额]))>他返回的是贰仟零壹陆,跟我想要的格式有差别,求大神指导!


--  作者:有点蓝
--  发布时间:2016/10/12 15:00:00
--  
Dim DateStr As String
DateStr = CCDate(Date.Today)
Output.Show(DateStr.SubString(0,4))


--  作者:积水成渊
--  发布时间:2016/10/12 16:02:00
--  

蓝神,你这个是代码,我要的表达式,我可以用代码放到excel中实现吗,我现在学到了支票套打这块了。我先做了一张表,里面把支票上需要用到的字段都填上内容,然后再设计excel的支票模板。


图片点击可在新窗口打开查看此主题相关图片如下:sv)qa)0_91fbg3%6oj12xe.png
图片点击可在新窗口打开查看
这个是要用到的字段绑定表。
图片点击可在新窗口打开查看此主题相关图片如下:{m4)ff}}08quz0mt(@9aigi.png
图片点击可在新窗口打开查看

这个是模板的设计内容。我要实现的是叫表中的日期2016-10-12中年2016 在模板中用表达式转换成大写中文 贰零壹陆。现在的效果是这样的


图片点击可在新窗口打开查看此主题相关图片如下:}sope)vl_qrj7brm(u~b1z.png
图片点击可在新窗口打开查看 多了个仟。

--  作者:有点蓝
--  发布时间:2016/10/12 16:14:00
--  
<Left(CUDate([日期]),4)>