文档介绍：RE:谁有金额小写转大写的子程序谁有金额小写转大写的子程序主题:谁有金额小写转大写的子程序发信人:()整理人:kingron(2000-12-0519:30:04)站内信件【在chenmx(小喇叭)的大作中提到:】(consthjnum:real):String;1Presult:string;xxbb:array[1..12]ofstring;uppna:array[0..9]ofstring;iCountiZerovPointvdtlno:integer;begin//*设置大写中文数字和相应单位数组*//xxbb[1]:='亿';xxbb[2]:='仟';xxbb[3]:='佰';xxbb[4]:='拾';xxbb[5]:='万';xxbb[6]:='仟';xxbb[7]:='佰';xxbb[8]:='拾';xxbb[9]:='元';xxbb[10]:='.';xxbb[11]:='角';xxbb[12]:='分';uppna[0]:='零';uppna[1]:='壹';uppna[2]:='贰';uppna[3]:='叁';uppna[4]:='肆';uppna[5]:='伍';uppna[6]:='陆';uppna[7]:='柒';uppna[8]:='捌';uppna[9]:='玖';Str(hjnum:12:2Vstr);cc:='';cc1:='';zzz:='';result:='';presult:='';iZero:=0;vPoint:=0;foriCount:=:=Vstr[iCount];<>''thenbeginzzz:=xxbb[iCount];='0'thenbeginifiZero<1then//*对“零”进行判断*//cc:='零':='';iCount=5then//*对万位“零”的处理*//ififcopy(resultlength(result)-12)='零'thenresult:=copy(result1length(result)-2)+xxbb[iCount]+'零'elseresult:=result+xxbb[iCount];cc1:=cc;zzz:='';iZero:=iZero+1;='.':='';1='')1='零')thenbeginPresult:=copy(result1Length(result)-2);result:=Presult;iZero:=15;end;ifiZero>=1thenzzz:=xxb