国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

一個(gè)實(shí)用的大小寫金額轉(zhuǎn)換程序

2019-11-17 05:29:34
字體：大 中 小
供稿：網(wǎng)友

　　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=Ansoszc.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;
} 

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 磐石市| 长宁区| 周宁县| 项城市| 京山县| 延津县| 新津县| 寿阳县| 荥经县| 哈巴河县| 灌云县| 江陵县| 伽师县| 河西区| 淅川县| 阳信县| 青阳县| 库车县| 马山县| 桐城市| 思茅市| 象州县| 环江| 井冈山市| 财经| 阜南县| 铁岭市| 晋江市| 和林格尔县| 赫章县| 辰溪县| 横峰县| 五常市| 枣庄市| 井陉县| 旬邑县| 海原县| 新和县| 松潘县| 韶关市| 磐安县|