报表中的大小金额的转换

请问怎样在报表中实现汇总金额和转换成大写金额？在线等待！！（我用的是FastReport） 问题点数：20、回复次数：1Top

1 楼47522341（睡到8：30）回复于 2003-12-03 18:51:05 得分 20

财务软件中总少不了大写的金额表示方式，如下为一个简单的小写金额转换为大写的函数，其思路简单（可以说烂吧，居然利用了位置来转换），但是它却几乎可以无限制的转换，只要你能读得出来和写得进去：  
  function   Tform1.SmallTOBig(small:real):string;  
  var   SmallMonth,BigMonth:string;  
  wei1,qianwei1:string[2];  
  wei,qianwei,dianweizhi,qian:integer;  
  begin  
  {-------   修改参数令值更精确   -------}  
  {小数点后的位数，需要的话也可以改动该值}  
  qianwei:=-2;  
   
  {转换成货币形式，需要的话小数点后加多几个零}  
  Smallmonth:=formatfloat('0.00',small);  
  {---------------------------------}  
   
  dianweizhi   :=pos('.',Smallmonth);{小数点的位置}  
   
  {循环小写货币的每一位，从小写的右边位置到左边}  
  for   qian:=length(Smallmonth)   downto   1   do  
  begin  
  {如果读到的不是小数点就继续}    
  if   qian<>dianweizhi   then  
  begin  
   
  {位置上的数转换成大写}  
  case   strtoint(copy(Smallmonth,qian,1))   of  
   
  1:wei1:='壹';   2:wei1:='贰';  
  3:wei1:='叁';   4:wei1:='肆';  
  5:wei1:='伍';   6:wei1:='陆';  
  7:wei1:='柒';   8:wei1:='捌';  
  9:wei1:='玖';   0:wei1:='零';  
  end;  
   
  {判断大写位置，可以继续增大到real类型的最大值，可是谁有那么多钱}  
  case   qianwei   of  
  -3:qianwei1:='厘';  
  -2:qianwei1:='分';  
  -1:qianwei1:='角';  
  0   :qianwei1:='元';  
  1   :qianwei1:='拾';  
  2   :qianwei1:='佰';  
  3   :qianwei1:='千';  
  4   :qianwei1:='万';  
  5   :qianwei1:='拾';  
  6   :qianwei1:='佰';  
  7   :qianwei1:='千';  
  8   :qianwei1:='亿';  
  9   :qianwei1:='十';  
  10:qianwei1:='佰';  
  11:qianwei1:='千';  
  end;  
   
  inc(qianwei);  
  BigMonth   :=wei1+qianwei1+BigMonth;{组合成大写金额}  
  end;  
   
  end;  
   
  SmallTOBig:=BigMonth;  
   
  end;  
   
  程序调用如下“edit1.text:=SmallTOBig(1234567890.1234);”他自动默认小数点后两位  
   
  Top

相关问题

• 转换
• qianwei
• wei
• smallmonth
• 小数点
• bigmonth
• 金额
• dianweizhi
• smalltobig
• qian

• 帖主：cat8162
• 47522341

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载