一个水晶报表的数字转换成中文大写的公式！

最新推荐文章于 2017-01-09 14:13:03 发布

PPLUNCLE

最新推荐文章于 2017-01-09 14:13:03 发布

阅读量3.9k

点赞数

分类专栏： ASP.NET 脚本其他文章标签：报表存储

本文链接：https://blog.csdn.net/PPLUNCLE/article/details/105454

版权

ASP.NET 同时被 2 个专栏收录

26 篇文章 0 订阅

订阅专栏

脚本其他

15 篇文章 0 订阅

订阅专栏

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 + "元整";