[浏览完整版]
标题：人民币大写书写问题
1楼
沙漠求胜 发表于：2010/1/30 15:52:00贺老板，函数cumoney()是将人民币小写转换为大写的函数，非常好。但有一个地方不符合《会计基础工作规范》，就是《规范》规定“在元或者角字之后应当写“整”字或者“正”字；大写金额数字有分的，分字后不写“整“或者“正”字”，但这个函数到角后没有“整”字，请老板修改一下，在角后加个“整”字否则打印拨款piao据后银行会退piao的，同时也符合国家规定。
2楼
mr725 发表于：2010/1/30 16:22:00看看系统目录CaseStudy下的piao据打印.table把~
3楼
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)
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)
4楼
程兴刚 发表于：2010/1/30 17:31:00解决办法很多的：
s = CUMoney(n & "*").Replace("圆*","圆整").Replace("角*","角整").Replace("*","")
s = CUMoney(n & "*").Replace("圆*","圆整").Replace("角*","角整").Replace("*","")
5楼
czy 发表于：2010/1/31 0:16:00呵呵，老程想简单了。
6楼
程兴刚 发表于：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编辑过]
7楼
沙漠求胜 发表于：2010/1/31 14:42:00谢谢啦
8楼
狐狸爸爸 发表于：2010/2/1 8:48:00收藏
9楼
mr725 发表于：2010/2/1 11:57:00以下是引用狐狸爸爸在2010-2-1 8:48:00的发言：
收藏
收藏
您在这里也收藏东东啊~ 
10楼
程兴刚 发表于：2010/2/1 12:47:00以下是引用mr725在2010-2-1 11:57:00的发言：
您在这里也收藏东东啊~ 
他的意思可能是收藏进去后，整合到系统，以后我们不用费心思了！