标题：[建议]人民币大写的问题

如题：
Dim Currency as String
Currency = CUMoney(12345.50)
Output.Show(Currency)　　

结果：壹万贰千叁佰肆拾伍圆伍角
　
因现银行要求是:壹万贰千叁佰肆拾伍圆伍角整
（请贺老改一下，易表的可以正常转换为以上格式的）

可以自己加上：

Dim Currency as String
Currency = CUMoney(12345.50) & "整"
Output.Show(Currency)

有人需要，有人不需要，去掉比加上更费事，现在这样更好

没理由我打一张换一种格式的吧．．

不明白你的意思：

Dim Currency as String
Currency = CUMoney(12345.50) & "整"
Output.Show(Currency)

这个代码是通用，不存在打一张换一种格式的问题。
除了编码的时候多写了几个字符，其余和易表并没有别的差别

现有一列数据要转换为大写如下:
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)　　

结果：壹万贰千叁佰肆拾伍圆伍角
银行要求的是: 壹万贰千叁佰肆拾伍圆伍整

可能原来我没讲清楚,引起误会

楼上少了个角字应为
银行要求的是: 壹万贰千叁佰肆拾伍圆伍角整

你原来的是这样的：
rx.Text = CurRow("大写金额")

如果现在不要大写金额这一列，只有实际的金额这一列，只需改为：

rx.Text = CUMoney(CurRow("金额")) & "整"

这样比专门则增加一个大写金额列，要好得多。

如果我举个例子：

Dim d As integer
d = Year($"1971-9-17")
Output.show(d)

难不成报表中需要打印年份的时候，需要每一行单独编码去提取年份？

此主题相关图片如下：自定义3.jpg

那说说明，整数自动加"整"了
所以直接这样就行：
rx.Text = CUMoney(CurRow("金额"))

有角分的本来就不应该有“整”字的。

如果一定要：

rx.Text = CUMoney(CurRow("金额"))
If rx.Text.EndsWith("整") = False Then
    rx.Text = rx.Text & "整"
End If

你易表中的是可以转换的 不信的你可用易表中试一下啊