Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> delphi教程 >> 正文

你的大写数字规范吗
文章来源:中国电脑教育报 作者:张更生

 我们在编程的过程中,特别是开发和财务相关的应用程序的时候,几乎都会遇到要将阿拉伯数字(一般是货币金额)转换为中文大写的要求。也有一些转换程序,但大都不符合财务实际要求,比如最简单的:

   function xd(xx:currency):string;

  var

  dx,ws:string;

  i,cd:integer;

  int:currency;

  begin

  int:=trunc((abs(xx)+0.005)*100);

  {在“厘”上4舍5入后去掉小数点}

  cd:=length(currtostr(int));

  {取得数字的长度,跟据此长度即可判断位数}

  dx:='零壹贰叁肆伍陆柒捌玖';

  ws:='分角元拾佰仟万拾佰仟亿拾佰仟';

  {位数}

  Result:= ' ';

  i:=1;

  while i<=cd do

  begin

  Result:=Result+copy(dx,strtoint(copy(currtostr

  (int),i,1))*2+1,2);

  {取数字的大写}

  Result:=Result+copy(ws,(cd-i)*2+1,2);

  {加上数字的位数}

  i:=i+1;

  end

  end

  在这里输入xd(1234567.89),返回“壹佰贰拾叁万肆仟伍佰陆拾柒元捌角玖分”,但它并不完美,例如xd(100),返回的却是:壹佰零拾零元零角零分(应是壹佰元整),显然这不符合财务工作的实际要求。


  中文大写的特殊性关键在对“0”的处理上,我们编程的思路也是如此,程序中遇到0的时候并不能简单地用大写“零”来代替,要进行如下判断:是否是第一个零(即它的左边是否不为零)?如是第一个零,还要判断,它的后面是否全为零(这要分段判断:亿以上,万以上亿以下,元以上万以下,分以上元以下)?如不是,才能以大写零来代替;如果是就直接写上位数如万(例如:100000,就应是壹拾万,而不是壹拾零万)。另一方面如果它的后面不全为零,却有连续的零,也要注意(例如:1001,就应是壹仟零壹元,而不是壹仟零零壹元)。

  以下就是根据这一思路给出的程序(此程序最大可转换至千亿位,在实际工作中也应该足够了):

  ……

  while i<=cd do

  begin

  if copy(currtostr(int),i,1)<> '0' then

  begin

  Result:=Result+copy(dx,strtoint(copy(currtostr(int),i,1))*2+1,2);

  Result:=Result+copy(ws,(cd-i)*2+1,2);

  ling:=false;

  i:=i+1;

  end

  else if ling=false and (copy(currtostr(int),i,1)= '0' ) then

  {遇到第一个0}

  begin

  if cd-i+1>10 then

  {判断是否是亿以上}

   begin

   w:=0;

   for q:=11 to cd-i+1 do

   begin

   w:=w+strtoint(copy(currtostr(int),cd-q+1,1));

   end ;

  if w=0 then

  {整亿,即亿位有0或连续的0}

   begin

   Result:=Result+'亿';

   i:=cd-9;

   end

  else

  {非整亿,即亿位无0}

   begin

   Result:=Result+'零';

   i:=i+1;

   ling:=true;

   end;

   end

  else if cd-i+1>6 then

  {判断是否是万以上}

  ……

  {判断是否是元以上}

   ……

  {判断是否是分以上}

   begin

   w:=0;

   for q:=1 to cd-i+1 do

   begin

   w:=w+strtoint(copy(currtostr(int),cd-q+1,1));

   end ;

   if w=0 then

   begin

   Result:=Result+'整';

   i:=cd+1 ;

   end

   else

   begin

   Result:=Result+'零';

   i:=i+1;

   ling:=true;

   end;

   end;

  end

  else if (copy(currtostr(int),i,1)= '0') and (ling=true) then

  {遇到一个连续的0,跳过}

  begin

  i:=i+1;

  end;

  end;

  if xx<0 then Result:= '负'+Result;

  {判断是否为负数}

  end;

  以上程序在Windows 2000(Windows 98)+Delphi 6中调试通过。

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有