注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

郁夫的博客

我爱你们,只是你们不知道!

 
 
 

日志

 
 
 
 

Delphi版金额大写(人民币大写读数)代码 - 转  

2011-04-11 13:31:05|  分类: DELPHI |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
       首先非常感觉xxaacc 发现了原来写的那份Delphi代码当中的问题(测试数据:1000100011.12).

原来的代码是03年写的了,最初的代码也是用C++写的,然后转换成Delphi代码.当是发布以C++Builder,从而为了速度优化等,得到了tiegerium(/*唐秀观*/)支持,而得以完善.

 


 uses
        math;
const  mnUnit:WideString ='分角元';
const  OtherWords:WideString='整负';
const  hzUnit:WideString = '拾佰仟万拾佰仟亿';
const  hzNum:WideString='零壹贰叁肆伍陆柒捌玖';
function Money2ChineseCapital2(const Num:double ): WideString;
var
   szNum:PWideChar;
   i,iLen,iLen2, iNum, iAddZero,ResultCount:Integer;
   buff:AnsiString;
   buf:PAnsiChar;
   dblNum: Double;
begin
   SetLength(Result,33*2 + 1);
   iAddZero := 0;
   if Num < 0.0 then
    dblNum := Num * 100.0 + 0.5
  else
    dblNum := Num * 100.0 - 0.5;
   buff := format('%0.0f',[dblNum]);
   if Pos(buff,'e')>0 then begin
    SetLength(Result,0);
    Raise Exception.Create('数值过大!');
    Exit;
   end;
   iLen := Length(buff);
   szNum := PWideChar(Result);
   buf := PAnsiChar(buff);
   if(Num<0.0) then
   begin
      szNum^:=OtherWords[2];
      Inc(szNum);
      Inc(buf);
      Dec(iLen);
   end;
   for i:=1 to iLen do
   begin
      iNum :=Ord(buf^)-48;
      Inc(buf);
      iLen2 := iLen-i;
      if(iNum=0) then
      begin
         if(((iLen2-2) mod 4)=0) and ((iLen2-3)>0) and (((iLen2>=8) or (iAddZero<3))) then
         begin
            szNum^ := hzUnit[(iLen2-3) mod 8 + 1];
            Inc(szNum);
         end;
         Inc(iAddZero);
         if(iLen>1) and (iLen2=1) and (buff[iLen] <> '0') then
         begin
            szNum^:=hzNum[1];
            Inc(szNum);
         end;
      end
      else
      begin
         if(((iAddZero>0) and (iLen2>=2)) and (((iLen2-1) mod 4)<>0) or ((iAddZero>=4) and ((iLen2-1)>0))) then
         begin
            szNum^:=hzNum[1];
            Inc(szNum);
         end;
         szNum^:=hzNum[iNum+1];
         Inc(szNum);
         iAddZero:=0;
      end;
      if (iAddZero<1) or (iLen2=2) then
      begin
         if(iLen-i>=3) then
         begin
            szNum^:=hzUnit[(iLen2-3) mod 8 + 1];
            Inc(szNum);
         end
         else
         begin
            szNum^:=mnUnit[(iLen2) mod 3 +1 ];
            Inc(szNum);
         end;
      end;
   end;
   ResultCount := szNum-PWideChar(Result);
   if((Num < 0.0) and (ResultCount - 1 = 0)) or ((Num>=0.0) and (ResultCount=0)) then
   begin
      szNum^:=hzNum[1];
      Inc(szNum);
      szNum^:=mnUnit[3];
      Inc(szNum);
      szNum^:=OtherWords[1];
      Inc(szNum);
      Inc(ResultCount,3);
   end
   else
   if((Num<0.0) and (buff[iLen+1] ='0')) or ((Num>=0.0) and (buff[iLen] ='0')) then
   begin
      szNum^:=OtherWords[1];
      Inc(ResultCount);
   end;
   SetLength(Result, ResultCount);
end;
  评论这张
 
阅读(834)| 评论(2)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017