在Crystal Report中将数字转为英文

     最近一个项目中需要水晶报表打印Invoice，在汇总金额的同时要把金额转换为英文表示，最开始的时候客户需求是只在Invoice最后一页总汇总的时候才需要显示英文，所以当被直接在.net中转好英文，然后再在数据源xsd设置多一个英文字段传到报表中。使用一段时间后客户要求每一页Invoice需要汇总英文，麻烦来了，如果要传参数法，将不能确定水晶报表分几页也没法传不固定参数，于是直接在水晶报表中写了转换方法，需要这样要求的朋友可以自己改改

 

1.在水晶报表中建立一个转换方法 DecimalToWords

 

Function (numbervar decimals)
    local stringVar array _smallNumbers := ["ZERO",   "ONE",   "TWO",   "THREE",   "FOUR",   "FIVE",   "SIX",   "SEVEN",   "EIGHT",
        "NINE",   "TEN",   "ELEVEN",   "TWELVE",   "THIRTEEN",   "FOURTEEN",   "FIFTEEN",
        "SIXTEEN",   "SEVENTEEN",   "EIGHTEEN",   "NINETEEN"];
    local stringVar array _tens := ["",   "",   "TWENTY",   "THIRTY",   "FORTY",   "FIFTY",   "SIXTY",   "SEVENTY",   "EIGHTY", "NINETY"];
    local stringVar array _scaleNumers := ["", "THOUSAND", "MILLION", "BILLION" ];
    stringVar combined := _smallNumbers[1];
    if decimals <> 0 then
    (
        numberVar i := 1;
        numberVar array digitGroups := [0,0,0,0];

        for i := 1  to 4 step 1  do
        (
            digitGroups[i] := decimals mod 1000;
            decimals := Int(decimals / 1000);
        );
        stringVar array groupText := ["","","",""];
        for i:=1 to 4 step 1 do
        (
            numberVar hundreds := Int(digitGroups[i] / 100);
            numberVar tensUnits := digitGroups[i] mod 100;
            if hundreds <> 0 then
            (
                groupText[i] := groupText[i] + _smallNumbers[hundreds+1] + " HUNDRED";
                if tensUnits <> 0 then
                    groupText[i] := groupText[i] + " ";
            );         
            numberVar tens := Int(tensUnits / 10);
            numberVar units := tensUnits mod 10;
            if tens >= 2 then
            (
                groupText[i] := groupText[i] + _tens[tens+1];
                if units <> 0 then
                    groupText[i] := groupText[i] + "-" + _smallNumbers[units+1];
            )
            else if tensUnits <> 0 then
                groupText[i] := groupText[i] + _smallNumbers[tensUnits +1]
        );
        combined := groupText[1];
        for i:=2 to 4 step 1 do
        (
            if digitGroups[i] <> 0 then
            (
                stringVar prefix := groupText[i] + " " + _scaleNumers[i];
                if Length(combined) <> 0 then
                    prefix := prefix+ " ";
                combined := prefix + combined;
             );
        );
    );
    combined;

 

 

2.然后在水晶报表中建一个 公式字段 TotalEg

     DecimalToWords ({#Total}) 　//其中Total是个汇总字段

 

3.把上一步建的公式字段TotalEg拖到报表需要的位置