知识大全 delphi编程小写金额转换

Posted 2022-07-22 小数点

篇首语：最聪明的处世之术是，既对世俗投以白眼，又与其同流合污。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 delphi编程小写金额转换相关的知识，希望对你有一定的参考价值。

　　财务软件中总少不了大写的金额表示方式如下为一个简单的小写金额转换为大写的函数其思路简单（可以说烂吧居然利用了位置来转换）但是它却几乎可以无限制的转换只要你能读得出来和写得进去

　　function Tform SmallTOBig(small:real):string;　　var SmallMonth BigMonth:string;　　wei qianwei :string[ ];　　wei qianwei dianweizhi qian:integer;　　begin　　修改参数令值更精确　　小数点后的位数需要的话也可以改动该值　　qianwei:= ; 转换成货币形式需要的话小数点后加多几个零　　Smallmonth:=formatfloat( small);　　　　dianweizhi :=pos( Smallmonth);小数点的位置　　循环小写货币的每一位从小写的右边位置到左边　　for qian:=length(Smallmonth) downto do　　begin　　如果读到的不是小数点就继续　　if qian<>dianweizhi then　　begin　　位置上的数转换成大写　　case strtoint(copy(Smallmonth qian )) of　　 :wei :=壹; :wei :=贰;　　 :wei :=三; :wei :=肆;　　 :wei :=伍; :wei :=陆;　　 :wei :=柒; :wei :=捌;　　 :wei :=玖; :wei :=零;　　end;　　判断大写位置可以继续增大到real类型的最大值可是谁有那么多钱　　case qianwei of　　 :qianwei :=厘;　　 :qianwei :=分;　　 :qianwei :=角;　　 :qianwei :=元;　　 :qianwei :=拾;　　 :qianwei :=佰;　　 :qianwei :=千;　　 :qianwei :=万;　　 :qianwei :=拾;　　 :qianwei :=佰;　　 :qianwei :=千;　　 :qianwei :=亿;　　 :qianwei :=十;　　 :qianwei :=佰;　　 :qianwei :=千;　　end;　　inc(qianwei);　　BigMonth :=wei +qianwei +BigMonth;组合成大写金额　　end;　　end;　　SmallTOBig:=BigMonth;　　end;

cha138/Article/program/Delphi/201311/24711