小写金额转换成int i,lendec,lenint string numstr,a,b,c,d,bbak numstr=string(aje,"#0.00") lenint=len(mid(numstr,1,pos(numstr,'.') - 1)) if right(numstr,2)='00' then lendec=0 else lendec=2 end if string dxint[13],dxdec[2],sz[13] string dxstr="万仟佰拾亿仟佰拾万仟佰拾元" s
编写一个收费软件时要用到一个小写金额转换成大写金额的函数，我曾在网上找到一个用Powerbuilder写的函数，长达四五十行之巨，后来我自己用DELPHI写了一个函数，寥寥几行代码就搞定： function TForm1.xTOd(i:Real):string; const d=‘零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿‘; var m,k:string; j:integer; begin k:=‘‘; m:=floattostr(int(i*100)); for j:=length(m)
