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

蛙才 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;

}
...全文
100 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

62,243

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧