以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  人民币大写书写问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5910)

--  作者:沙漠求胜
--  发布时间:2010/1/30 15:52:00
--  人民币大写书写问题
贺老板,函数cumoney()是将人民币小写转换为大写的函数,非常好。但有一个地方不符合《会计基础工作规范》,就是《规范》规定“在元或者角字之后应当写“整”字或者“正”字;大写金额数字有分的,分字后不写“整“或者“正”字”,但这个函数到角后没有“整”字,请老板修改一下,在角后加个“整”字否则打印拨款票据后银行会退票的,同时也符合国家规定。
--  作者:mr725
--  发布时间:2010/1/30 16:22:00
--  
看看系统目录CaseStudy下的票据打印.table把~ 
--  作者:czy
--  发布时间:2010/1/30 16:36:00
--  
现在只能自己解决吧,如:

Dim n As Decimal = 12345.11
Dim s As String
s = CUMoney(n) & iif(n mod 1 =0,"",iif((n mod 1) mod 0.1 >0,"","整"))
Output.Show(s)

--  作者:程兴刚
--  发布时间:2010/1/30 17:31:00
--  
解决办法很多的:

s = CUMoney(n & "*").Replace("圆*","圆整").Replace("角*","角整").Replace("*","")


--  作者:czy
--  发布时间:2010/1/31 0:16:00
--  
呵呵,老程想简单了。
--  作者:程兴刚
--  发布时间:2010/1/31 1:09:00
--  
以下是引用czy在2010-1-31 0:16:00的发言:
呵呵,老程想简单了。


 呵呵,写错了连接符号,这样是可以的:

Output.show((CUMoney(1112.3) & "*").Replace("元","圆").Replace("角*","角整").Replace("*",""))

[此贴子已经被作者于2010-1-31 1:13:21编辑过]

--  作者:沙漠求胜
--  发布时间:2010/1/31 14:42:00
--  
谢谢啦
--  作者:狐狸爸爸
--  发布时间:2010/2/1 8:48:00
--  
收藏
--  作者:mr725
--  发布时间:2010/2/1 11:57:00
--  
以下是引用狐狸爸爸在2010-2-1 8:48:00的发言:
收藏

您在这里也收藏东东啊~       图片点击可在新窗口打开查看        


--  作者:程兴刚
--  发布时间:2010/2/1 12:47:00
--  
以下是引用mr725在2010-2-1 11:57:00的发言:

您在这里也收藏东东啊~       图片点击可在新窗口打开查看        


       他的意思可能是收藏进去后,整合到系统,以后我们不用费心思了!