一个实用的大小写金额转换程序

王朝other·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

AnsiString GetBigMoney(AnsiString s)

{

if ((s.Length()<=8) && (s.ToIntDef(0)==0)) return "币零元零角整";

AnsiString odxc,odxs,oszc,oscc,oscc0; int oi,oi0,i;

double ormb=StrToFloat(s); //金额小写

if (ormb==0.00) return "币零元零角整";

odxc="分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿";

odxs="零壹贰叁肆伍陆柒捌玖";

oszc=FloatToStr(abs(ormb));

i=AnsiPos('.',s);

oszc.Delete(i,1); // stuf(oszc,18,1,'');

oszc=Trim(oszc); oscc=""; oi0=0;

for (oi=oszc.Length();oi>0;oi--)

{ oscc=odxc.SubString(oi0*2+1,2)+oscc; oscc=odxs.SubString(StrToInt(oszc.SubString(oi,1))*2+1,2)+oscc;

oi0++; }

oscc0="";

for (oi=1;oi<=oscc.Length();oi=oi+4)

{ if (oscc.SubString(oi,2)=="零" )

{ if ( oscc.SubString(oi+2,2)=="万" )

{ if ( oscc0.SubString(oscc0.Length()-3,4)!="亿零" )

{ if (oscc0.SubString(oscc0.Length()-1,2)=="零" )

oscc0=oscc0.SubString(1,oscc0.Length()-2)+"万";

else oscc0=oscc0+"万"; }

continue; }

if ( oscc.SubString(oi+2,2)=="圆")

{

if (oscc0.SubString(oscc0.Length()-1,2)=="零")

oscc0=oscc0.SubString(1,oscc0.Length()-2)+"圆";

else oscc0=oscc0+"圆";

continue;

}

if ( oscc.SubString(oi+2,2)=="亿" )

{

if (oscc0.SubString(oscc0.Length()-1,2)=="零")

oscc0=oscc0.SubString(1,oscc0.Length()-2)+"亿";

else oscc0=oscc0+"亿";

continue; }

if (oscc0.SubString(oscc0.Length()-1,2)!="零" )

oscc0=oscc0+"零";

}

else oscc0=oscc0+oscc.SubString(oi,4);

}

if ((oscc0.SubString(oscc0.Length()-3,4)=="圆零") )

{ oscc0=oscc0.SubString(1,oscc0.Length()-2)+"整";

return "币"+oscc0; }

if ((oscc0.SubString(oscc0.Length()-3,4)=="角零" ))

{ oscc0=oscc0.SubString(1,oscc0.Length()-2)+"整";

return "币"+oscc0;

}

if ((oscc0.SubString(oscc0.Length()-1,2)=="零" ))

oscc0=oscc0.SubString(1,oscc0.Length()-2)+"圆整";

return "币"+oscc0;

}

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航