国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 浦东新区| 安国市| 东阳市| 宁明县| 额济纳旗| 永昌县| 青铜峡市| 噶尔县| 长垣县| 六安市| 阿坝县| 平谷区| 靖边县| 宝兴县| 筠连县| 宿迁市| 石林| 会泽县| 犍为县| 江城| 辽中县| 丽江市| 河北省| 曲周县| 长治县| 麻阳| 毕节市| 大渡口区| 营山县| 平度市| 天台县| 东至县| 阿城市| 咸阳市| 克山县| 定襄县| 双流县| 贵港市| 留坝县| 永仁县| 长顺县|