站内搜索

你的大写数字规范吗

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

   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中调试通过。

  • 上一篇:Delphi情结――永不消逝的精灵
  • 下一篇:QQ窗体自动隐藏效果探究