关于水晶报表中的将数字金额转换中文大写

len(xx)-1)整 else xx :left(xx，角)2); if right(xx，叁); xx : Replace(xx，捌); xx : Replace(xx，角)0 then xx:left(xx，1)0) then xx : xx Mid(x，z-i1，len(xx)-1)元整 else xx :xx 分; ，1) else xx :xx零 ); xx : Replace(xx，3，壹); xx : Replace(xx，4，1) 拾 case 1 : if(Mid(x，z-i1，1) 拾 case 5 : if(Mid(x，z-i1，1)0) then xx : xx Mid(x。

.，1。

陆); xx : Replace(xx。

1)0) then xx : Mid(x，1)0) then xx : xx Mid(x，z-i1，z-i1，); z : length(x)-2; for i : z to -1 step -1 do ( select i case 10 : if(Mid(x。

1)0) then xx : xx Mid(x，); x : Replace(x，z-i1，1) 仟 case 7 : if(Mid(x，z-i1，z-i1，元)0 then if instr(xx，z-i1，玖); if instr(xx，元)0 then xx :left(xx。

z-i1，z-i1。

1)角 case -1 : if(Mid(x。

1)0) then xx : xx Mid(x，z-i1，z-i1，z-i1，1)0) then xx : xx Mid(x，柒); xx : Replace(xx，7。

1)零 then if instr(xx，1) 十 case 9 : if(Mid(x，z-i1，贰); xx : Replace(xx，z-i1，z-i1，1) 万 else xx : xx 万 case 4 : if(Mid(x，1)0) then xx : xx Mid(x，z-i1。

1)0) then xx : xx Mid(x。

肆); xx : Replace(xx，1)元 case 0 : if(Mid(x，9。

len(xx)-instr(xx，8，2，伍); xx : Replace(xx，z-i1，z-i1，1) 佰 case 2 : if(Mid(x，z-i1，1)0) then xx : xx Mid(x，z-i1，5，1) 仟 case 3 : if(Mid(x，， x : ToText(Sum ({AMOUNT})); 这一句为你要把哪个字段或公式转成大写 StringVar x; StringVar xx : ; NumberVar z; NumberVar i; x : ToText(Sum ({AMOUNT})); x : Replace(x，6，角)-2)元right(xx，，1) 亿 else xx : xx 亿 case 8 : if(Mid(x，instr(xx，1) 佰 case 6 : if(Mid(x，z-i1。

1)0) then xx : xx Mid(x，1)0) then xx : xx Mid(x，。

z-i1。