• 全部
  • .NET Framework
  • ASP
  • Web Services
  • .NET互联网桌面应用
  • VB
  • 图表区
  • 分析与设计
  • 组件/控件开发
  • AppLauncher
  • 问答

贴一个数字金额转为中文大写的函数,希望给财务软件编写提供一个小帮助

蛙才 2004-11-02 03:00:40
public 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;

}
...全文
64 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
.NET技术社区
创建于2007-09-28

5.8w+

社区成员

.NET技术交流专区
申请成为版主
帖子事件
创建了帖子
2004-11-02 03:00
社区公告
暂无公告