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

BCB-DG's Blog

...

 
 
 

日志

 
 

iNum2DX  

2008-11-25 14:26:00|  分类: Delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

function iNum2DX(num: Double): String;
 
  function iR(const s, s1, s2: String): String;
 
  begin
   
    Result := StringReplace(s, s1, s2, [rfReplaceAll]);
 
  end;

const
 
  s1: String = '零壹貳參肆伍陸柒捌玖';
 
  s2: String = '分角元拾佰仟萬拾佰仟億拾佰仟萬';

var
 
  s, dx: String;
 
  i, Len: Integer;

begin
 
  if num < 0 then
 
  begin
   
    dx  := '負';
   
    num := -num;
 
  end;
 
  s := Format('%.0f', [num * 100]);
 
  Len := Length(s);
 
  for i := 1 to Len do
   
    dx := dx + Copy(s1, (Ord(s[i]) - Ord('0')) * 2 + 1, 2) + Copy(s2, (Len - i) * 2 + 1, 2);
 
  dx := iR(iR(iR(iR(iR(dx, '零仟', '零'), '零佰', '零'), '零拾', '零'), '零角', '零'), '零分', '整');
 
  dx := iR(iR(iR(iR(iR(dx, '零零', '零'), '零零', '零'), '零億', '億'), '零萬', '萬'), '零元', '元');
 
  if dx = '整' then
   
    Result := '零元整'
 
  else
   
    Result := iR(iR(iR(dx, '億萬', '億零'), '零整', '整'), '零零', '零');
  end;

end;

  评论这张
 
阅读(614)| 评论(0)
推荐 转载

历史上的今天

评论

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

页脚

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