把数字小写转换成大写，把数字转化成英文

把数字小写转换成大写
 
方法一，使用系统提供的函数，但是不满足大陆财务的要求。
 
 
方法二：使用下面的函数。
英文：
static str Num2EngStr(real realNum,boolean showNegative=false)
{
       str aa,bb,T1,T2,T3,B,W,CC,a1;
       int a2,a=0,c=0;
       int V,M;
       real tmpReal;
       boolean IsNegative=false;
       ;
 
       aa='ONE'+strRep(' ',9-strLen('ONE'))+'TWO'+strRep(' ',9-strLen('TWO'))+
       'THREE'+strRep(' ',9-strLen('THREE'))+'FOUR'+strRep(' ',9-strLen('FOUR'))+
       'FIVE'+strRep(' ',9-strLen('FIVE'))+'SIX'+strRep(' ',9-strLen('SIX'))+
       'SEVEN'+strRep(' ',9-strLen('SEVEN'))+'EIGHT'+strRep(' ',9-strLen('EIGHT'))+
       'NINE'+strRep(' ',9-strLen('NINE'))+'TEN'+strRep(' ',9-strLen('TEN'))+
       'ELEVEN'+strRep(' ',9-strLen('ELEVEN'))+'TWELVE'+strRep(' ',9-strLen('TWELVE'))+
       'THIRTEEN'+strRep(' ',9-strLen('THIRTEEN'))+'FOURTEEN'+strRep(' ',9-strLen('FOURTEEN'))+
       'FIFTEEN'+strRep(' ',9-strLen('FIFTEEN'))+'SIXTEEN'+strRep(' ',9-strLen('SIXTEEN'))+
       'SEVENTEEN'+strRep(' ',9-strLen('SEVENTEEN'))+'EIGHTEEN'+strRep(' ',9-strLen('EIGHTEEN'))+
       'NINETEEN'+strRep(' ',9-strLen('NINETEEN'));
       bb="TWENTY THIRTY FORTY FIFTY SIXTY SEVENTYEIGHTY NINETY ";
 
       if (realNum==0)
       return 'ZERO ONLY.';
       if (realNum<0)
       {
              realNum=abs(realNum);
              IsNegative=true;
       }
       tmpReal=decRound(realNum,2);
       T1=strLtrim(num2str(tmpReal,20,2,1,0));
       T2='';
       T3=T1;
       if (strFind(T3,'.',1,20)!=0)
       {
              V=strFind(T3,'.',1,20);
              T1=subStr(T3,1,V-1);
              T2=subStr(T3,V+1,strLen(T3)-V);
       }
 
       T1=strRep(' ',10 - strLen(T1))+T1;
       CC=T1;
       B='';
       W='';
       M=9;
       while (m >0)
       {
       if (subStr(cc,m+1,1)==' ')
       break;
       if (str2num(subStr(cc,m - 1,3))!=0)
       {
              if (m==6)
              W=' THOUSAND '+w;
              else if (m==3)
              W=' MILLION '+w;
 
              A=str2Num(subStr(cc,m,2));
              if (a !=0)
              {
                     if (a< 20)
                     B=strRtrim(subStr(aa,(a - 1)*9+1,9));
                     else
                     {
                            A1=strLtrim(num2str(a,20,0,1,0));
                            A2=str2Num(subStr(a1,1,1));
                            b=strRtrim(subStr(bb,(a2 - 2)*7+1,7));
                            a2=str2num(subStr(a1,2,1));
                            if (a2!=0)
                            B=strRtrim(b+'-'+subStr(aa,(a2 - 1)*9+1,9));
 
                     }
                     w=b+w;
              }
 
              A=str2num(subStr(cc,m - 1,1));
              if (a!=0)
              {
                     b=strRtrim(substr(aa,(a - 1)*9+1,9))+' HUNDRED ';
                     if (w!=' ' && m==9)
                     b=b+'AND ';
                     w=b+w;
              }
       }
       m=m - 3;
       }
       if (w==' ')
       w='ZERO';
       if (t2!=' ' && t2!='00')
       w=strRtrim(strLtrim(w))+' '+t2+'/100';
       if (substr(w,strLen(w)-11,12)=='HUNDRED AND ')
       w=substr(w,1,strLen(w)-5);
       if(isNegative&&showNegative)
       return 'NEGATIVE '+w+' ONLY.';
       else
       return w+' ONLY.';
 
}
 
简体中文：
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;
}