钱转大写
来源:互联网 发布:知峰竹纤维内衣 编辑:程序博客网 时间:2024/06/09 19:51
private string ConvertUper(float money)
{
string ls_money_unit="",ls_money,ls_unit,ls_badge="";
int li_long,li_i;
ls_money=decimal.Round((decimal)money,2).ToString("0.00");
li_long=ls_money.Length;
for(li_i=1;li_i<li_long+1;li_i++)
{
ls_unit=ls_money.Substring(li_long-li_i,li_i);
ls_unit=ls_unit.Substring(0,1);
if (ls_unit!=".")
{
switch (ls_unit)
{
case "0" :
ls_unit="零";
break;
case "1" :
ls_unit="壹";
break;
case "2" :
ls_unit="贰";
break;
case "3" :
ls_unit="叁";
break;
case "4" :
ls_unit="肆";
break;
case "5" :
ls_unit="伍";
break;
case "6" :
ls_unit="陆";
break;
case "7" :
ls_unit="柒";
break;
case "8" :
ls_unit="捌";
break;
case "9" :
ls_unit="玖";
break;
}
switch(li_i)
{
case 1 :
ls_badge="分整";
break;
case 2 :
ls_badge="角";
break;
case 3 :
ls_badge="";
break;
case 4 :
ls_badge="元";
break;
case 5 :
ls_badge="拾";
break;
case 6 :
ls_badge="佰";
break;
case 7 :
ls_badge="仟";
break;
case 8 :
ls_badge="万";
break;
case 9 :
ls_badge="拾";
break;
case 10 :
ls_badge="佰";
break;
case 11 :
ls_badge="仟";
break;
case 12 :
ls_badge="亿";
break;
case 13:
ls_badge="拾";
break;
case 14 :
ls_badge="佰";
break;
case 15 :
ls_badge="仟";
break;
}
ls_money_unit=ls_unit+ls_badge+ls_money_unit;
}
}
return ls_money_unit;
}
- 钱转大写
- 小写钱转大写钱
- 钱小写转大写 VB
- 钱大写
- js 大写钱
- js 大写钱2
- 小写转大写金额
- 数字小写转大写
- 小写转大写
- 数字转货币大写
- 数字小写转大写
- 阿拉伯数字转中文大写
- 人民币小写转大写
- 转大写金额
- 金额小写转大写
- 小写转大写
- 金额小写转大写
- 数字转大写程序
- 天下搜索,又一个3721?
- 我的五一生活(一)
- 如何用正确的方法来写出质量好的软件的75条体会 (转载)
- 汤姆·霍尔的快速成为游戏开发者的秘诀
- [爬虫] URL提取
- 钱转大写
- THC温湿度测控系统---系统分析与设计
- 人与钱
- win2003+php5安装说明
- 统计下先....
- 记住一句话
- 制作自己的Win XP SP2光盘
- 透过局域网架设Internet FTP服务器
- 广场之夜(组诗)