小写金额转换成大写金额

【文件属性】：
文件名称：小写金额转换成大写金额
文件大小：687B
文件格式：TXT
更新时间：2009-03-15 02:52:39
控件 源码 计数类 资源 编写一个收费软件时要用到一个小写金额转换成大写金额的函数，我曾在网上找到一个用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) downto 1 do k:=k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+ d[(strtoint(m[Length(m)-j+1])+1)*2]+d[(10+j)*2-1]+d[(10+j)*2]; xTOd:=k; end; 调用： procedure TForm1.Button1Click(Sender: TObject); var Sum:real; begin sum:=12.34; showmessage(‘人民币大写:‘+xTOd(Sum)); end;