小写excel金额大小写转换转大写怎么弄

人民币数字大写转换 人民币大写金额转换 数字大小写转化
人民币数字大写转换 人民币大写金额转换 数字大小写转化
提供实际生活中对一到十数字进行汉字大写转化结果
输入数字金额:
譬如输入: 元
数字1到10大写对照表
人民币大写数字注意事项:
中文大写金额数字应用正楷或行书填写,如壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整(正)等字样。不得用一、二(两)、三、四、五、六、七、八、九、十、念、毛、另(或0)填写,不得自造简化字。如果金额数字书写中使用繁体字,如贰、陆、亿、万、圆的,也应受理。
  一、中文大写金额数字到&元&为止的,在&元&之后,应写&整&(或&正&)字,在&角&之后,可以不写&整&(或&正&)字。大写金额数字有&分&的,&分&后面不写&整&(或&正&)字。
  二、中文大写金额数字前应标明&人民币&字样,大写金额数字有&分&的,&分&后面不写&整&(或&正&)字。
  三、中文大写金额数字前应标明&人民币&字样,大写金额数字应紧接&人民币&字样填写,不得留有空白。大写金额数字前未印&人民币&字样的,应加填&人民币&三字。在票据和结算凭证大写金额栏内不得预印固定的&仟、佰、拾、万、仟、佰、拾、元、角、分&字样。
  四、阿拉伯数字小写金额数字中有&0&时,中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。举例如下:
1、阿拉伯数字中间有&0&时,中文大写要写&零&字,如¥,应写成人民币贰仟壹佰零拾捌元陆角整。
2、阿拉伯数字中间连续有几个&0&时,中文大写金额中间可以只写一个&零&字,如¥,应写成人民币壹仟零柒元壹角肆分。
3、阿拉伯金额数字万位和元位是&0&,或者数字中间连续有几个&0&,万位、元位也是&0&,但千位、角位不是&0&时,中文大写金额中可以只写一个零字,也可以不写&零&字。如¥,应写成人民币贰仟陆佰捌拾元零叁角贰分,或者写成人民币贰仟陆佰捌拾元叁角贰分,又如¥,应写成人民币贰拾万伍仟元零叁角伍分,或者写成人民币贰拾万零伍仟元叁角伍分。
4、阿拉伯金额数字角位是&0&,而分位不是&0&时,中文大写金额&元&后面应写&零&字。如¥,应写成人民币贰万叁仟伍佰零捌元零柒分;又如¥,应写成人民币伍佰肆拾叁元零贰分。
  数字大写转换工具为您提供大写的一到十,大写,人民币大写,大写数字金额,阿拉伯数字大写,金额大写,大小写转换,数字大写怎么写,1到10的大写,金额大写转换等。如何将大写金额转换成小写?
作者:用户
浏览:176 次
网上只有小写转大写的,有谁能帮我找个大写转小写的?(写代码能实现,不过没时间写和测试了,各位帮帮忙给我找找)多谢了!###privatefloatgetMoney(stringstrBig){stri
问题描述网上只有小写转大写的,有谁能帮我找个大写转小写的?(写代码能实现,不过没时间写和测试了,各位帮帮忙给我找找)多谢了!解决方案解决方案二:privatefloatgetMoney(stringstrBig){stringstrExp="";string[]arrBig=newstring[]{"整","","零","+0","壹","+1","贰","+2","叁","+3","肆","+4","伍","+5","陆","+6","柒","+7","捌","+8","玖","+9","分","*0.01","角","*0.1","元","*1","拾","*10.00","佰","*100.00","仟","*1000.00","万","*10000.00","亿","*"};for(inti=0;i&strBig.Li++){for(intj=0;j&arrBig.Length-1;j+=2){if(arrBig[j]==strBig[i].ToString()){strExp+=arrBig[j+1].ToString();}}}objectret=newDataTable().Compute(strExp,"");returnfloat.Parse(ret.ToString());//Console.WriteLine(getMoney("玖仟零贰拾壹元陆角肆分"));//Console.WriteLine(getMoney("玖仟万亿零贰拾壹元陆角肆分"));}解决方案三:publicstaticDecimalGetDecimal(objectsNum){returnGetDecimal(sNum,0);}publicstaticDecimalGetDecimal(objectsNum,DecimaliDefault){returnGetDecimal(sNum,0,-1);}publicstaticDecimalGetDecimal(objectsNum,DecimaliDefault,intiDotNum){try{Decimald=Convert.ToDecimal(sNum);if(iDotNum==-1){strings=d.ToString();for(inti=s.Length-1;i&=0;i--){if(s.IndexOf('.')&-1&&(s[i]=='0'||s[i]=='.')){s=s.Substring(0,s.Length-1);}else{}}d=Convert.ToDecimal(s);}else{returnMath.Round(d,iDotNum);}publicstaticDecimalGetDecimal(objectsNum){returnGetDecimal(sNum,0);}publicstaticDecimalGetDecimal(objectsNum,DecimaliDefault){returnGetDecimal(sNum,0,-1);}publicstaticDecimalGetDecimal(objectsNum,DecimaliDefault,intiDotNum){try{Decimald=Convert.ToDecimal(sNum);if(iDotNum==-1){strings=d.ToString();for(inti=s.Length-1;i&=0;i--){if(s.IndexOf('.')&-1&&(s[i]=='0'||s[i]=='.')){s=s.Substring(0,s.Length-1);}else{}}d=Convert.ToDecimal(s);}else{returnMath.Round(d,iDotNum);}privatestaticstringUpperMoney(stringsNum,string[]sUpperNum,string[]upperUnit){returnUpperMoney(sNum,sUpperNum,upperUnit,false);}privatestaticstringUpperMoney(stringsNum,string[]sUpperNum,string[]upperUnit,boolb){char[]cNums=sNum.ToCharArray();StringBuildersb=newStringBuilder();for(inti=0;i&sNum.Li++){intiNum=int.Parse(cNums[i].ToString());stringunit=string.Eif(iNum!=0){if(b)unit=upperUnit[i];elseunit=upperUnit[sNum.Length-i-1];}elseif(AddUnitAtZero(sNum.Length-i)){if(!b)unit=upperUnit[sNum.Length-i-1];}sb.Append(sUpperNum[iNum]+unit);}returnReplaceInvalid(sb.ToString());}privatestaticboolAddUnitAtZero(intindex){for(inti=0;i&8;i++){if(index==4*i+1)}}privatestaticstringReplaceInvalid(stringsNum){while(sNum.LastIndexOf("零零")!=-1||sNum.LastIndexOf("零元")!=-1||sNum.LastIndexOf("零萬")!=-1||sNum.LastIndexOf("零億")!=-1||sNum.LastIndexOf("零兆")!=-1||sNum.LastIndexOf("億萬")!=-1||sNum.LastIndexOf("兆萬億")!=-1||sNum.LastIndexOf("京億兆")!=-1){sNum=sNum.Replace("零零","零").Replace("零元","元").Replace("零萬","萬").Replace("零億","億");sNum=sNum.Replace("零兆","兆").Replace("億萬","億").Replace("兆萬億","兆").Replace("京億兆","京");}returnsNum+"整"=="元整"?"零元整":sNum+"整";}解决方案四:两位大哥真快啊,自己写的吧,我先看看等会结贴。以后还要多讨教。谢谢!解决方案五:大写换小写无论如何很难做到完全准确。所以建议再做个小写换大写来进行校验。解决方案六:临时写得,还没经过全面测试publicdoubleDecodeMoneyCn(stringAText){AText=AText.Replace("万万","亿");AText=AText.Replace("点","元");AText=AText.Replace("块","元");AText=AText.Replace("毛","角");doublevResult=0;doublevNumber=0;//当前数字doublevTemp=0;intvDecimal=0;//是否出现小数点foreach(charvCharinAText){inti="零一二三四五六七八九".IndexOf(vChar);if(i&0)i="零幺两三四五六七八九".IndexOf(vChar);if(i&0)i="零壹贰叁肆伍陆柒捌玖".IndexOf(vChar);if(i&0){vNumber=i;if(vDecimal&0){vResult+=vNumber*Math.Pow(10,-vDecimal);vDecimal++;vNumber=0;}}else{i="元十百千万亿".IndexOf(vChar);if(i&0)i="整拾佰仟万亿".IndexOf(vChar);if(i==5)i=8;if(i&0){if(i&=4){vTemp+=vNif(vTemp==0)vTemp=1;vResult+=vTemp*Math.Pow(10,i);vTemp=0;}elsevTemp+=vNumber*Math.Pow(10,i);}else{i="元角分".IndexOf(vChar);if(i&0){vTemp+=vNvResult+=vTemp*Math.Pow(10,-i);vTemp=0;}elseif(i==0){vTemp+=vNvResult+=vTvDecimal=1;vTemp=0;}}vNumber=0;}}returnvResult+vTemp+vN}privatevoidbutton2_Click(objectsender,EventArgse){string[]vTestText={"十二点五六","一亿零一万零五","四万万","九十八亿七千六百五十四万三千二百一十","五元一角四分","壹佰元整","三千五百万","九块二毛"};foreach(stringvTextinvTestText){Console.WriteLine("DecodeMoneyCn("{0}")={1}",vText,DecodeMoneyCn(vText));}}部分测试结果如下[code=BatchFile]DecodeMoneyCn("十二点五六")=2.56DecodeMoneyCn("一亿零一万零五")=DecodeMoneyCn("四万万")=DecodeMoneyCn("九十八亿七千六百五十四万三千二百一十")=DecodeMoneyCn("五元一角四分")=5.14DecodeMoneyCn("壹佰元整")=100DecodeMoneyCn("三千五百万")=DecodeMoneyCn("九块二毛")=9.2[/code]
【云栖快讯】2017互联网超级工程阿里双11完美落幕,交易额突破1682亿,但阿里工程师如何玩转“超级工程”,背后黑科技又是如何?12月13-14日,12位大咖直播分享揭秘1682亿背后技术实践,马上预约&&
稳定可靠、可弹性伸缩的在线数据库服务,全球最受欢迎的开源数据库之一
6款热门基础云产品6个月免费体验;2款产品1年体验;1款产品2年体验
弹性可伸缩的计算服务,助您降低 IT 成本,提升运维效率
开发者常用软件,超百款实用软件一站式提供Excel表格中输入小写金额怎样自动转换为大写?;若是03版,比如在a1输小写金额,只能在除a1之;
Excel表格中输入小写金额怎样自动转换为大写?有什么公式,具体怎样操作。
若是03版,比如在a1输小写金额,只能在除a1之外的单元格(如b1)显示大写金额,则 b1=TEXT(INT(A1),\元整\元\\角%um2]\角\分\零\分\直接复制公式到b1就行了
三亿文库包含各类专业文献、生活休闲娱乐、各类资格考试、幼儿教育、小学教育、高等教育、应用写作文书、外语学习资料、94Excel表格中输入小写金额怎样自动转换为大写等内容。 
 数字要设置 成大写呢? 应该怎么设置? 选中要输入数据的区域,右击&&设置单元格...Excel数字自动转换大写金... 2页 1下载券 Excel中人民币小写金额转... 2页...  教你在EXCEL表格中自动生成大写金额的方法_计算机软件及应用_IT/计算机_专业资料。表格中自动生成大写金额教你在 EXCEL 表格中自动生成大写金额的方法这个公式很好用,...  excel小写金额自动转为大写金额_计算机软件及应用_IT/计算机_专业资料。小写金额的同时自动填充大写金额 怎样设置 excel 表可以在输入小写金额的同时自动填充大写金额?...  Excel 中怎么实现小写金额自动转换成中文大写金额以显示 A14 单元格为例: =IF(ISNUMBER(A14),IF(INT(A14),TEXT(INT(A14),&[dbnum2]&)&& &,)&IF(INT(A...  Excel自动转换数字大小写_法律资料_人文社科_专业资料。Excel 自动转换数字大小写...即可将 a1 所表示的小写数字金额转换为大写的数字金额,并在 a2 单元格中显 ...  Excel 中如何将货币数值由数字金额自动转为中文大写金额 使用 Excel 时有时会用数据的转换,尤其是做财务工作,如工资 表等时就需要用中文大写金额。如果手动输入,...  C1 转换成中文大写金额(含元角分),请在 C1 单元格输入如 下公式: =...Excel 函数公式锁定符号$ “$”可以锁定单元格,锁定后拉动单元格,单元格内公式...  经过设置后,Excel 数 字自动转换为大写金额,输入的时候就不用每次输入大写这么麻烦了! 具体操作如下: 在单元格中输入想要转换的数字。如“12345”――选中该单元...查看: 11109|回复: 7
[已解决]怎样把小写金额自动变成大写金额?
请问一下怎么样能使小写金额变成大写金额?
如A1为小写数字,则在B1里输入:=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(A1&-0.5%,,&负&)&TEXT(INT(FIXED(ABS(A1))),&[dbnum2]&)&TEXT(RIGHT(FIXED(A1),2),&[dbnum2]元0角0分;;元&&IF(ABS(A1)&1%,&整&,)),&零角&,IF(ABS(A1)&1,,&零&)),&零元&,),&零分&,&整&)
如果没有小数,选取单元格,右键--设置单元格格式--数字--特殊--中文大写
你可以在网站里面搜索,有很多公式可以完成
&&&本楼为最佳答案&&&
如A1为小写数字,则在B1里输入:=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(A1&-0.5%,,&负&)&TEXT(INT(FIXED(ABS(A1))),&[dbnum2]&)&TEXT(RIGHT(FIXED(A1),2),&[dbnum2]元0角0分;;元&&IF(ABS(A1)&1%,&整&,)),&零角&,IF(ABS(A1)&1,,&零&)),&零元&,),&零分&,&整&)
简单点的直接设置自定义格式:[dbnum2]
以下是引用zyjs029在 13:02:00的发言:简单点的直接设置自定义格式:[dbnum2]&&&&&&&&& 1212.35&&&&& 结果是 壹仟贰佰壹拾贰.叁伍
代码如下:我一直用着Function dx(q)& ybb = Round(q * 100)& Y = Int(ybb / 100)& J = Int(ybb / 10) - Y * 10& F = ybb - Y * 100 - J * 10& zy = Application.WorksheetFunction.Text(Y, "[dbnum2]")& ZJ = Application.WorksheetFunction.Text(J, "[dbnum2]")& ZF = Application.WorksheetFunction.Text(F, "[dbnum2]")& dx = zy & "元" & "整"& DI = zy & "元"& If F && 0 And J && 0 Then&&&& dx = DI & ZJ & "角" & ZF & "分"&&&& If Y = 0 Then&&&&&&& dx = ZJ & " 角" & ZF & "分"&&&&&&& End If&&&& End If& If F = 0 And J && 0 Then&&&& dx = DI & ZJ & "角" & "整"&&&& If Y = 0 Then&&&&&&& dx = ZJ & "角" & "整"&&&&&&&&&& End If& End If& If F && 0 And J = 0 Then& dx = DI & ZJ & ZF & "分"& If Y = 0 Then&&&& dx = ZF & "分"&&&& End If& End If& If q = " " Then&&&& dx = 0&&&&&& End If&&&& End Function&Sub BAOXIAO()&End Sub
Powered by2014年4月 Delphi大版内专家分月排行榜第二2011年12月 Delphi大版内专家分月排行榜第二
2012年1月 Delphi大版内专家分月排行榜第三2011年9月 Delphi大版内专家分月排行榜第三
2010年9月 Delphi大版内专家分月排行榜第三2010年8月 Delphi大版内专家分月排行榜第三2010年5月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了,不再提供回复功能。

我要回帖

更多关于 小写金额转大写 的文章

 

随机推荐