数字转中文大写

static str Num2ChnStr(real realNum)
{
       real    y;
       int     b, a;
       str     je, x, hz1, hz2, e, h, f, m;
       boolean IsNegative=false;
       ;
       if (realNum == 0)
               return '零圆';
       if (realNum < 0)
       {
              realNum    = abs(realNum);
              IsNegative = true;
       }

       y   = realNum;
       x   = strLtrim(strRtrim(num2str(y, 20, 2, 1, 0)));
       b   = strLen(x) - 3;
       a   = 1;
       e   = substr(x, a, 1);
       hz2 = '零壹贰叁肆伍陆柒捌玖';
       hz1 = '仟佰拾亿仟佰拾万仟佰拾圆';
       je  = '';
       while (e != '.')
       {
              h = subStr(hz2, str2num(e) * 2 + 1, 2);
              f = subStr(hz1, 24 - (b - a) * 2 - 1, 2);
              if (e != '0' || (e == '0' && (f == '亿' || f == '万' || f == '圆')))
              　　je = strLtrim(strRtrim(je)) + h + f;
              else
              　　je = strLtrim(strRtrim(je)) + h;
              a = a + 1;
              e = subStr(x, a, 1);
       }
       a = a + 1;
       e = subStr(x, a, 1);
       h = subStr(x, a + 1, 1);
       if (e == '0' && h == '0')
       　　je = je + '整';
       else
       {
       　　if (e == '0')
           　　je = je + '零' + subStr(hz2, str2num(h) * 2 + 1, 2) + '分';
       　　else if (h == '0')
          　　 je = je + substr(hz2, str2num(e) * 2 + 1, 2) + '角整';
       　　else
          　　 je = je + substr(hz2, str2num(e) * 2 + 1, 2) + '角' + subStr(hz2, str2num(h) * 2 + 1, 2) + '分';
       }
       b = strLen(je);
       a = 1;
       while (a < b)
       {
       　　m = substr(je, a, 4);
       　　if (m == '零圆' || m == '零万' || m == '零亿' || m == '零零')
       　　{
           　　je =subStr(je, 1, a - 1) + strLtrim(strRtrim(substr(je, a + 2, 40)));
               a = a - 2;
               b = b - 2;
       　　}
       　　a = a + 2;
       }
 
       if (subStr(je, 1, 2) == '圆' && strLen(je) > 2)
       　　je = subStr(je, 3, strLen(je) - 2);
       if (IsNegative)
       　　je = '负' + je;
       return je;
}

amount in words(大写金额）

在AX5.0中，在Global中对应转换的方法。如：numeralsToTxt_EN()。