以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  狐爸出问题了.年的转换有问题.  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21608)
--  作者：unverse
--  发布时间：2012/7/18 16:50:00
--  狐爸出问题了.年的转换有问题.

帮助里的票据打印发现点问题: 票据年度显示有问题..


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20120718164650.png
图片点击可在新窗口打开查看
上边的年度应该是:贰零壹贰  应该如何使用参数 .....下次发版应该把帮助改改哟...贰仟零玖也不对..应该是:贰零零玖

 

如何转换成:贰零壹贰呢.函数怎么写...
--  作者：狐狸爸爸
--  发布时间：2012/7/18 17:05:00
--  
收到，我们下次改一下。
--  作者：狐狸爸爸
--  发布时间：2012/7/18 17:08:00
--  

目前可以这样：

 

CCNumber(2012).Replace("仟","零").replace("零壹拾","壹")

[此贴子已经被作者于2012-7-18 17:13:10编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/7/18 17:17:00
--  
好办法
--  作者：don
--  发布时间：2012/7/18 17:26:00
--  
以下是引用狐狸爸爸在2012-7-18 17:08:00的发言：

目前可以这样：

 

CCNumber(2012).Replace("仟","零").replace("零壹拾","壹")



=================================
太简单了吧:

Dim n1 As Integer = 2100
Dim s1 As String = CCNumber(n1)
If n1 Mod 1000 =0 Then
    s1=s1.Replace("仟","零零零")
ElseIf n1 Mod 100 =0 Then
    s1=s1.replace("仟","零").replace("佰","零")  
ElseIf n1 Mod 10 =0 Then
    s1=s1.replace("仟零","零").replace("拾","零")    \'
Else
    s1=s1.Replace("仟","").Replace("佰","").Replace("拾","")
End If
Output.Show(s1)
--  作者：don
--  发布时间：2012/7/18 17:46:00
--  
以下是引用狐狸爸爸在2012-7-18 17:05:00的发言：
收到，我们下次改一下。
有四楼的方法,应该改帮助文件就行了,就不要改动CCNUMBER了.
--  作者：狐狸爸爸
--  发布时间：2012/7/18 17:49:00
--  

呵呵，还会要加个的。
--  作者：unverse
--  发布时间：2012/7/19 9:58:00
--  

还是MUHUA的办法好矮小精悍