水晶报表下将数字转换成金额大写的公式

Question

我想把180000.00转成壹拾八万零千零百零拾零元零角零分
怎么转呢？？？？
各位大侠救命啊！！！！！！

Answer 1

听说这儿有
http://blog.csdn.net/BlueDog/archive/2006/12/15/1443443.aspx

Answer 2

http://www.cnblogs.com/qiao198/archive/2006/01/16/318158.htmlLS给的是C#的 
还是我给你的方便吧 ：）
我记得水晶报表支持自己的语法和VB
其他的不知道了
莫非新的支持c#?

Answer 3

StringVar x;
StringVar xx := "";
NumberVar z;
NumberVar i;
x := ToText(Sum ({@@AMOUNT}));
x := Replace(x,",","");
x := Replace(x,".","");
z := length(x)-2;for i := z to -1 step -1 do
(
    select i
    case 10 : if(Mid(x,z-i+1,1)<>"0") then xx := Mid(x,z-i+1,1) + "十"
    case 9 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "亿" else xx := xx + "亿"
    case 8 : if(Mid(x,z-i+1,1)<>"0") then xx := 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) + "佰"
    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) + "万" else xx := xx + "万"
    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) + "佰"
    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)+"元"
    case 0 : 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) else xx :=xx+"零"
);
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","玖");
if instr(xx,'元')<=0 then
   if instr(xx,'角')>0 then
     xx:=left(xx,instr(xx,'角')-2)+'元'+right(xx,len(xx)-instr(xx,'角')+2);
   if right(xx,1)='零' then
     if instr(xx,'元')>0 then
       xx :=left(xx,len(xx)-1)+'整'
     else
       xx :=left(xx,len(xx)-1)+'元整'  
else  
   xx :=xx + "分";