一个水晶报表的数字转换成中文大写的公式!
来源:互联网 发布:请查收附件 英文知乎 编辑:程序博客网 时间:2024/06/06 09:32
StringVar x;
StringVar xx := "";
NumberVar z;
NumberVar i;
x := ToText({CL_CFKB.FKJE});
x := Left(x,length(x)-5); //这里所减去的数字,是小数点后面的位数加1的值
//我这里是存储时保留小数点后4 位,所以只能精确到个位。
x := Replace(x,",","");
z := length(x);
for i := z to 1 step -1 do
(
select i
case 8 : if(Mid(x,z-i+1,1)<>"0") then xx := Mid(x,z-i+1,1) + "十"
case 7 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "亿" else xx := xx + "亿"
case 6 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "仟"
case 5 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "佰"
case 4 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "十"
case 3 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "万" else xx := xx + "万"
case 2 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "仟"
case 1 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "佰"
);
xx := Replace(xx,"1","壹");
xx := Replace(xx,"2","贰");
xx := Replace(xx,"3","叁");
xx := Replace(xx,"4","肆");
xx := Replace(xx,"5","伍");
xx := Replace(xx,"6","陆");
xx := Replace(xx,"7","柒");
xx := Replace(xx,"8","捌");
xx := Replace(xx,"9","玖");
xx + "元整";
StringVar xx := "";
NumberVar z;
NumberVar i;
x := ToText({CL_CFKB.FKJE});
x := Left(x,length(x)-5); //这里所减去的数字,是小数点后面的位数加1的值
//我这里是存储时保留小数点后4 位,所以只能精确到个位。
x := Replace(x,",","");
z := length(x);
for i := z to 1 step -1 do
(
select i
case 8 : if(Mid(x,z-i+1,1)<>"0") then xx := Mid(x,z-i+1,1) + "十"
case 7 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "亿" else xx := xx + "亿"
case 6 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "仟"
case 5 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "佰"
case 4 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "十"
case 3 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "万" else xx := xx + "万"
case 2 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "仟"
case 1 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "佰"
);
xx := Replace(xx,"1","壹");
xx := Replace(xx,"2","贰");
xx := Replace(xx,"3","叁");
xx := Replace(xx,"4","肆");
xx := Replace(xx,"5","伍");
xx := Replace(xx,"6","陆");
xx := Replace(xx,"7","柒");
xx := Replace(xx,"8","捌");
xx := Replace(xx,"9","玖");
xx + "元整";
- 一个水晶报表的数字转换成中文大写的公式!
- 水晶报表中数字转大写金额的源码
- Java实现阿拉伯数字转换成中文大写数字,以及中文大写数字到阿拉伯数字的转换。
- Java实现阿拉伯数字转换成中文大写数字,以及中文大写数字到阿拉伯数字的转换
- 刚开始学Java,写了一个金额大写转换和中文大写数字转换的类
- 把货币金额转换成大写的函数(水晶报表BASIC语言版)
- python 转换数字为中文的大写
- 将数字转换成中文大写的算法
- 货币数字转换成中文大写的函数
- 数字转换成中文大写的经典方案
- 将数字转换成中文金额的大写形式
- PHP 数字金额转换成中文大写金额的函数
- 金额从数字转换成中文汉字大写的实现
- 水晶报表 使用公式 转化大写
- 转换成中文大写数字
- 数字转换成中文大写
- 价格数字转换成大写汉字的一个类
- 一个将数字转换成金额大写的函数
- 对FlatCalendarXP日历的扩展
- 如何用CRegKey类来操作注册表
- 示例:Radio
- sss
- 浅述EDI--接收模型(1)
- 一个水晶报表的数字转换成中文大写的公式!
- .NET平台下树形(TreeView)结构程序设计
- Mysql字段长度
- 示例:Calendar
- MySQL中各种字段的取值范围
- Apache的配置
- google也开始卖品牌衍生产品了
- 用户名不同的计算机之间的调用dcom[整理]
- 匈牙利为庆贺第17届奥运会而发行的纪念邮票