- 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()是将人民币小写转换为大写的函数，非常好。但有一个地方不符合《会计基础工作规范》，就是《规范》规定“在元或者角字之后应当写“整”字或者“正”字；大写金额数字有分的，分字后不写“整“或者“正”字”，但这个函数到角后没有“整”字，请老板修改一下，在角后加个“整”字否则打印拨款票据后银行会退票的，同时也符合国家规定。
-- 发布时间：2010/1/30 16:22:00
--
看看系统目录CaseStudy下的票据打印.table把~
-- 发布时间：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("*","")
-- 发布时间：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
--
收藏
-- 发布时间：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的发言：
您在这里也收藏东东啊~ 
他的意思可能是收藏进去后，整合到系统，以后我们不用费心思了！