📄 my_2000071301.htm
字号:
<HTML>
<HEAD>
<TITLE>一个实用的大小写金额转换程序</TITLE>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
</HEAD>
<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0
vLink=#990099>
<div align="center">
<table width="744" border="0" cellspacing="0" cellpadding="0" height="76">
<tr>
<td>
<p align="center"><font size="3"><b><br>
一个实用的大小写金额转换程序</b></font></p>
<p align="left">AnsiString GetBigMoney(AnsiString s) <br>
{ <br>
if ((s.Length()<=8) && (s.ToIntDef(0)==0)) return "币零元零角整"; <br>
AnsiString odxc,odxs,oszc,oscc,oscc0; int oi,oi0,i;<br>
double ormb=StrToFloat(s); //金额小写 <br>
if (ormb==0.00) return "币零元零角整"; <br>
odxc="分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿"; <br>
odxs="零壹贰叁肆伍陆柒捌玖"; <br>
oszc=FloatToStr(abs(ormb));<br>
i=AnsiPos('.',s);<br>
oszc.Delete(i,1); // stuf(oszc,18,1,'');<br>
oszc=Trim(oszc); oscc=""; oi0=0;<br>
for (oi=oszc.Length();oi>0;oi--)<br>
{ oscc=odxc.SubString(oi0*2+1,2)+oscc; oscc=odxs.SubString(StrToInt(oszc.SubString(oi,1))*2+1,2)+oscc;
<br>
oi0++; }<br>
oscc0="";<br>
for (oi=1;oi<=oscc.Length();oi=oi+4) <br>
{ if (oscc.SubString(oi,2)=="零" )<br>
{ if ( oscc.SubString(oi+2,2)=="万" )<br>
{ if ( oscc0.SubString(oscc0.Length()-3,4)!="亿零" )<br>
{ if (oscc0.SubString(oscc0.Length()-1,2)=="零" ) <br>
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"万";<br>
else oscc0=oscc0+"万"; } <br>
continue; }<br>
if ( oscc.SubString(oi+2,2)=="圆")<br>
{ <br>
if (oscc0.SubString(oscc0.Length()-1,2)=="零")<br>
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"圆"; <br>
else oscc0=oscc0+"圆"; <br>
continue; <br>
}<br>
if ( oscc.SubString(oi+2,2)=="亿" )<br>
{ <br>
if (oscc0.SubString(oscc0.Length()-1,2)=="零") <br>
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"亿"; <br>
else oscc0=oscc0+"亿";<br>
continue; }<br>
if (oscc0.SubString(oscc0.Length()-1,2)!="零" ) <br>
oscc0=oscc0+"零"; <br>
} <br>
else oscc0=oscc0+oscc.SubString(oi,4);<br>
}<br>
if ((oscc0.SubString(oscc0.Length()-3,4)=="圆零") ) <br>
{ oscc0=oscc0.SubString(1,oscc0.Length()-2)+"整";<br>
return "币"+oscc0; } <br>
if ((oscc0.SubString(oscc0.Length()-3,4)=="角零" ))<br>
{ oscc0=oscc0.SubString(1,oscc0.Length()-2)+"整";<br>
return "币"+oscc0;<br>
}<br>
if ((oscc0.SubString(oscc0.Length()-1,2)=="零" ))<br>
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"圆整"; <br>
return "币"+oscc0;<br>
} </p>
</td>
</tr>
</table>
</div>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -