CSDN博客

img PPLUNCLE

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

发表于2004/9/15 14:25:00  2590人阅读

分类: ASP.NET 脚本其他

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 + "元整";
阅读全文
0 0

相关文章推荐

img
取 消
img