- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [建议]人民币大写的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=729)
-- 发布时间：2008/9/28 11:25:00
-- [建议]人民币大写的问题
如题：
Dim Currency as String
Currency = CUMoney(12345.50)
Output.Show(Currency)
结果：壹万贰千叁佰肆拾伍圆伍角
因现银行要求是:壹万贰千叁佰肆拾伍圆伍角整
（请贺老改一下，易表的可以正常转换为以上格式的）
-- 发布时间：2008/9/28 11:27:00
--
可以自己加上：
Dim Currency as String
Currency = CUMoney(12345.50) & "整"
Output.Show(Currency)
有人需要，有人不需要，去掉比加上更费事，现在这样更好
-- 发布时间：2008/9/28 11:32:00
--
没理由我打一张换一种格式的吧．．
-- 发布时间：2008/9/28 12:09:00
--
以下是引用blny在2008-9-28 11:32:00的发言：
没理由我打一张换一种格式的吧．．
不明白你的意思：
Dim Currency as String
Currency = CUMoney(12345.50) & "整"
Output.Show(Currency)
这个代码是通用，不存在打一张换一种格式的问题。
除了编码的时候多写了几个字符，其余和易表并没有别的差别
-- 发布时间：2008/9/28 12:27:00
--
现有一列数据要转换为大写如下:
12345.00
12345.05
12345.50
11111
.....
Dim Currency as String
Currency = CUMoney(12345.00)
Output.Show(Currency)
结果：壹万贰千叁佰肆拾伍圆整
Dim Currency as String
Currency = CUMoney(12345.05)
Output.Show(Currency)
结果：壹万贰千叁佰肆拾伍圆零分
狐表转换的以上二种情况都可符合银行要求
只有以下的不符合要求:
Dim Currency as String
Currency = CUMoney(12345.50)
Output.Show(Currency)
结果：壹万贰千叁佰肆拾伍圆伍角
银行要求的是: 壹万贰千叁佰肆拾伍圆伍整
可能原来我没讲清楚,引起误会
-- 发布时间：2008/9/28 12:30:00
--
楼上少了个角字应为
银行要求的是: 壹万贰千叁佰肆拾伍圆伍角整
-- 发布时间：2008/9/28 13:46:00
--
你原来的是这样的：
rx.Text = CurRow("大写金额")
如果现在不要大写金额这一列，只有实际的金额这一列，只需改为：
rx.Text = CUMoney(CurRow("金额")) & "整"
这样比专门则增加一个大写金额列，要好得多。
如果我举个例子：
Dim d As integer
d = Year($"1971-9-17")
Output.show(d)
难不成报表中需要打印年份的时候，需要每一行单独编码去提取年份？
[此贴子已经被作者于2008-9-28 13:48:38编辑过]
-- 发布时间：2008/9/28 15:50:00
--
此主题相关图片如下：自定义3.jpg
-- 发布时间：2008/9/28 16:00:00
--
那说说明，整数自动加"整"了
所以直接这样就行：
rx.Text = CUMoney(CurRow("金额"))
有角分的本来就不应该有“整”字的。
如果一定要：
rx.Text = CUMoney(CurRow("金额"))
If rx.Text.EndsWith("整") = False Then
rx.Text = rx.Text & "整"
End If
-- 发布时间：2008/9/28 16:30:00
--
你易表中的是可以转换的 不信的你可用易表中试一下啊