主题：人民币大写书写问题

贺老板，函数cumoney()是将人民币小写转换为大写的函数，非常好。但有一个地方不符合《会计基础工作规范》，就是《规范》规定“在元或者角字之后应当写“整”字或者“正”字；大写金额数字有分的，分字后不写“整“或者“正”字”，但这个函数到角后没有“整”字，请老板修改一下，在角后加个“整”字否则打印拨款piao据后银行会退piao的，同时也符合国家规定。

看看系统目录CaseStudy下的piao据打印.table把~ 

现在只能自己解决吧，如：

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)

解决办法很多的：

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

呵呵，老程想简单了。

 呵呵，写错了连接符号，这样是可以的：

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

谢谢啦

收藏

您在这里也收藏东东啊~               

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