请用Java实现人民币大写转换小写
小写金额转换为大写金额(C实现)
前言 银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载帐务的会计凭证，是记载经济业务和明确经济责任的一种书面证明。因此，填写票据和结算凭证，必须做到标准化、规范化，要要素齐全、数字正确、字迹清晰、不错漏、不潦草，防止涂改。 我的服务需要一个金额转换过程，本来想在网上找，但都是C++、JavaScript、Delphi 的Demo，还没有C的。索性自己写一个。参考了其它的转换算法，对我有些启发。 大多的算法都是直接分析字符串生成大写金额，即存在一个假设：源字符串的格式是正确的。在我的过程中，用状态机的方法分析源字符串，错误时，返回空指针（我可不敢保证传给我的过程的都是##.##）。分析出源字符串中整数部有多少个数字，是否有小数，统计结果放在一个结构体中，整数和小数部分的数字分别放在两个整形数组里。 有了统计数据就可以生成大写金额了。转换过程有个难点：要区分万、亿等“段”，特别是个位这个“段”，这个概念是在《小写转大写金额在C++中的实现》文章中提到的。在下面的程序中用j= ( size - i - 1 ) & 0x3，实际上是j = ( size - i - 1 ) % 4取模，j==0时为段尾，需要特殊处理。所有的处理都是围绕0来进行的，也就是说，0才是难点。 特殊位置的0，按段分，段中第一个非0数字前的0，可能有多个；段中两个非0数字间的0；段尾的0；个位的0；十分位，角位置的0。 另外，转换的一个重点是大写金额的写法，好像大多的算法都注重转换过程而对这个问题没有深究。我在文章后面附上转换规则。 下面是代码 1./** 2.* @brief 将源字符串中的小写金额转换为大写格式 3.* 4.* @param dest 目的字符串 5.* @param src 小写金额字符串 6.* @return 7.* - NULL 源字符串的格式错误，返回NULL 8.* - 非NULL 目的字符串的首地址 9.* @note 转换根据：中国人民银行会计司编写的最新《企业、银行正确办理支付结 算 10.* 指南》的第114页-第115页 11.*/ 12.char* chineseFee( char* dest, char* src ) 13.{
人民币金额的中文大写形式
题目描述： 读入一个浮点数值，将其转化为中文金额的大写形式。如123.45，转化为：壹佰贰拾叁元肆角伍分。编写程序，针对以下多种数据情况进一步完善程序。 1.当金额为整数时，只表示整数部分，并添加“整”字。如123表示为：壹佰贰拾叁元整。 2.当金额中含有连续的0时，只需写一个“零”即可。如10005表示为：壹万零伍元整。 3.10的表示形式。如110表示为：壹佰壹拾元整。而10则表示为：拾元整。 代码为： import java.util.Scanner; public class P63 { //将数字大写 public static String a(char i) { switch(i) { case '1': return "壹"; case '2': return "贰"; case '3': return "叁"; case '4': return "肆"; case '5': return "伍"; case '6': return "陆"; case '7': return "柒"; case '8':
return "捌"; case '9': return "玖"; } return " "; } //处理万、亿 public static String c(int i) { String c = ""; int j; if(i % 2 != 0) c = "万"+c; for(j = i/2;j > 0;j--) c = "亿" + c; return c; } //返回单位 public static String b(int i) { switch(i%4) { case 1: return c(i/4); case 2: return "拾"; case 3: return "佰"; case 0: return "仟"; } return " "; } public static void main(String[] args) { String result =""; int j,i = 0; Scanner in = new Scanner(System.in); System.out.print("请输入你要转换大写的人民币金额："); //输入人民币金额并赋值给f String f = in.nextLine();
如何将小写金额变成大写数值
如何将小写数值变成大写数值 =IF(C10<0,"金额为负无效",IF(OR(C10=0,C10=""),"零元整",IF(C10<1,"",TEXT(INT(C10),"[dbnum2]G/通用格式")&"元"))) & IF(INT(C10*10)-INT(C10)*10=0,IF(INT(C10)*(INT(C10*100)-INT(C10*10)*10)=0,"","零"),TEXT(INT(C10*10)-INT(C10)*10,"[dbnum2]")&"角")&IF((INT(C10*100)-INT(C10*10)*10)=0,"整",TEXT((INT(C10*100)-INT(C10*10)*10),"[dbnum2]")&"分") excel表格中如何将小写金额转换为大写金额，如数值为0时则不在表中显示，如数值为负时则显示“负***”=IF(H12=0,"",IF(INT(H12),TEXT(TRUNC(H12),"[dbnum2]")&"元","")&IF(MOD(H12,1)=0,"整",IF(TRUNC(H12,1),IF(H12=TRUNC(H12,1),TEXT(LEFT(RIGHT(H12*100,2)),"[dbnum2]0角整"),TEXT(RIGHT(H12*100,2),"[dbnum2]0"&IF(LEFT(RIGHT(H12*100,2))="0","","角")&"0分")),TEXT(H12*100,"[dbnum2]0分")))) 如何在excel中输入小写金额，自动转换为大写金额 假设Sheet1的A4是你阿拉伯合计金额，以下为Sheet2中的小写金额=Sheet1!A4 假设这个公式是在Sheet2的C6单元格里，以下为大写金额=IF(INT(C6)-C6=0,TEXT(C6,"[DBNum2][$-804]G/通用格式""元整"""),TEXT(INT(C6),"[DBNum2][$-804]G/通用格式""元""")&TEXT(RIGHT(INT(C6*10),1),"[DBNum2][$-804]G/通用格式""角""")&TEXT(RIGHT(INT(C6*100),1),"[DBNum2][$-804]G/通用格式""分""")) 解释：IF(INT(C6)-C6=0,一串，另一串），如果C6是整数（函数INT是取整的意思，取整后减去原数为0，说明是整数），返回一串，否则返回另一串。函数TEXT(数，”格式“）把数变为指定格式，而”[DBNum2][$-804]G/通用格式“就是中文大写格式。函数RIGHT(字符串，位数）返回字符串最后几位数。元角分也是格式的一部分，""在已经有的引号范围内表示一个引号。
单元格小写金额自动转换成大写金额
Excel中怎么实现小写金额自动转换成中文大写金额 EXCEL中数字小写换大写方法一： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负 ","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元 "&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10) ),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角 ","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBN um2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","") EXCEL中数字小写换大写方法二： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,"整","零 "&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分 "),TEXT(INT(A2),"[DBNum2]G/通用格式")&"元 "&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10)-INT(A2)*10),"[D BNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分")) EXCEL中数字小写换大写方法三： =IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整 ",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆 "&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT((A2*10-INT(A2*10))*10),"[DBNum2]G/通用格式")&"分") EXCEL中数字小写换大写方法四： =IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整 ",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元 "&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整 ",TEXT(INT(A2),"[DBNUM2]")&"元"&IF(INT(A2*10)-INT(A2)*10=0,"零
WORD数字小写金额变大写
Sub 小写金额变大写() Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String Const ZWDX As String = "壹贰叁肆伍陆柒捌玖零" '定义一个中文大写汉字常量 On Error Resume Next '错误忽略 With Selection Numeric = VBA.Round(VBA.V al(.Text), 2) '四舍五入保留小数点后两位 '判断是否在表格中！！此处为向左MoveLeft移动1(count)个单元格(wdCell) If .Information(wdWithInTable) Then _ .MoveLeft unit:=wdCell, Count:=1 Else .MoveRight unit:=wdCharacter '对数据进行判断,是否在指定的范围内 If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _ vbOKOnly + vbExclamation, "Warning": Exit Sub IntPart = Int(VBA.Abs(Numeric)) '定义一个正整数 Odd = VBA.IIf(IntPart = 0, "", "元") '定义一个STRING变量 '插入中文大写前的标签 Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币大写: ", "金额大写: 负") '对小数点后面二位数进行择定 DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100 Select Case DecimalPart Case Is = 0 '如果是0,即是选定的数据为整数 Oddment = VBA.IIf(Odd = "", "", Odd & "整") Case Is < 10 '<10,即是零头是分 Oddment = VBA.IIf(Odd <> "", "元零" & VBA.Mid(ZWDX, DecimalPart, 1) & "分", _ VBA.Mid(ZWDX, DecimalPart, 1) & "分") Case 10, 20, 30, 40, 50, 60, 70, 80, 90 '如果是角整 Oddment = "元" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整" Case Else '既有角,又有分的情况 Jiao = VBA.Left(CStr(DecimalPart), 1) '取得角面值 Fen = VBA.Right(CStr(DecimalPart), 1) '取得分面值 Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & "角" '转换为角的中文大写 Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & "分" '转换为分的中文大写 End Select '指定区域插入中文大写格式的域 Set MyField = .Fields.Add(Range:=.Range, Text:="= " & IntPart & " \*CHINESENUM2") MyField.Select '选定域(最后是用指定文本覆盖选定区域) '如果仅有角分情况下,Mychinese为"" MyChinese = VBA.IIf(MyField.RESULT <> "零", MyField.RESULT, "") .Text = Lable & MyChinese & Oddment End With End Sub
人民币小写金额转换成大写格式
人民币小写金额转换成大写格式 要将人民币小写金额转换成大写格式，用Excel提供的格式，将自定义格式类型中的“[dbnum2]G/通用格式”改为“[dbnum2] G/通用格式“元””来实现。但在转换小数时却出现了问题，比如￥6,050.09只能转换为“陆仟零伍拾.零玖圆”。那么用Excel 能不能解决这一先天不足呢？其方法有以下两种（以下均对B1转换，假设B1是通过函数ROUND( )四舍五入取得二位小数的小写金额数，其值为￥6,050.09）。 一、在三个连续的同行单元格中转换 1. B2中输入公式“=IF(B1〈0，"金额为负无效"，INT(B1))”，计算结果为￥6,050.00，然后点击“格式→单元格→数字→特殊→中文大写数字→确定”，B2显示“陆仟零伍拾”，再点击“格式→单元格→数字→自定义”，将“类型”编辑框中的“[dbnum2]G/通用格式”修改为：[dbnum2](“人民币”)G/通用格式“元”，此时B2显示：“(人民币)陆仟零伍拾元”。 2. C2中输入“=IF(B1〈0，""，INT(B1 10)-INT(B1) 10)”，同样C2改为：[DBNum2]G/通用格式“角”，C2显示：“零角”。 3. D2中输入“=IF(B1〈0，""，INT(B1 100)-INT(B1 10) 10)”，同样D2改为：[DBNum2]G/通用格式“分”， D2显示：“玖分”。 这样在连续的三个同行单元格中实现了大写金额格式的转换，如图1所示。为了使转换符合财务格式，B2应右对齐，C2列宽无间隔，且不设左右边框线，D2要左对齐。
二、用Excel提供的函数转换 个位为0，则不显示；不为0，显示“XXX元”；不为0、且角位和分位均为0，显示“XXX元整”；元角分位均为0，则显示“零元整”。 小数点后面第一位为0、且元位或分位有一为0，则不显示；为0、且元位和分位均不为0，则显示“零”；不为0，显示“X角”。 小数点后面第二位为0，则显示“整”；不为0，显示“X分”。 根据以上思路在B2中输入公式： “IF(B1〈0，"金额为负无效"，IF(OR(B1=0，B1="")，"(人民币)零元整"))； IF(B1〈1，"(人民币)"，TEXT(INT(B1)，"[dbnum2](人民币)G/通用格式")&&"元")&&IF(INT(B1 10)-INT(B1) 10=0)； IF(INT(B1) (INT(B1 100)-INT(B1 10) 10)=0，""，"零")，TEXT(INT(B1 10)-INT(B1) 10，"[dbnum2]")&&"角")&&IF((INT(B1 100)-INT(B1 10) 10)=0，"整"，TEXT((INT(B1 100)-INT(B1*10)*10)，"[dbnum2]")&&"分")))”。 确认后B2显示：“(人民币)陆仟零伍拾元零玖分”。以后使用时将公式复制到有关单元格中，若转换的对象B1发生了变化，可点击“编辑→替换”将B1替换掉。两种转换测试结果如图2所示。
人民币大小写转换
成绩评定表
课程设计任务书
一、实训题目和实训任务 二、1. 实训题目 人民币大小写转换 2. 实训任务 输入一个钱数，比如3456.45，显示其人民币大写：叁仟肆佰伍拾陆元肆角伍分。用C#窗体程序实现，注意数字中带有零的情况，比如3009005.04。多试一些，确保你的程序可用于银行储蓄系统。 3. 题目分析 刚选这道题目的时候我认为这个应该是挺简单的一道题，运用数组定义单位和大写字符。然后再通过循环来实现对数字的大写转换和单位的添加。所以应该只有一个关键的转换代码。可以让这个代码通过butto按钮实现转换。之后对这个代码多次进行调试确保可以识别所有数字和单位然后重复这个关键代码就可以实现识别位数的增加达到规定要求。然后在完成题目中其他要求比如对于零的处理，可以添加一个整形变量用来识别本位数是否为零，进而达到对零的识别。完成课题中所有的要求。其次添加一些别的简单的小功能比如类似计算器键盘的按钮的输入功能。添加数字输入按钮、转换按钮、清空按钮等功能按钮。这样可以使得程序更加丰满不会觉得太过于单调，使得界面更加丰满。之后再添加各种图片用来装饰整个程序。完成此程序。 4. 开发工具和环境 开发工具：Visual Studio 2012 环境：Windows 2000, XP, Vista等
二、软件设计 1. 关键技术分析 ①实现数值和单位赋值大代码 //定义单位，大写，和用于判断的c，i，j，n string[] a = { "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖" }; string[] b = { "分", "角", "元", "十", "百", "千", "万", "十", "百", "千", "亿", "十", "百", "千" }; string c; int k = 0; int j; int a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11; //输入数值i强制只能读到分位 double i = double.Parse(textBox1.Text); int n = (int)(100 * i); //实现分位数的单位与数值转换 a1 = j = n % 10; if (n != 0) { if (j != 0) { c = a[j - 1]; textBox2.Text = (c + b[k] + textBox2.Text); k++; } else { textBox2.Text = (textBox2.Text); k++; } } else { textBox2.Text = textBox2.Text; k++; } ②实现对零的判断代码 //个位数对于零的判断以及读法 if (a3== 0) { if (a2==0&&a3==0) { textBox2.Text = "元整" + textBox2.Text; } else textBox2.Text ="元零"+ textBox2.Text; }
EXCEL函数数字小写换大写
EXCEL文本函数-数字小写换大写/英文大小写互换 2007年10月17日星期三 13:04 在大小写中英文互换公式中我们先假设每个表都有表头，且数字在第二行，在A2单元格内 注意：公式可以随意拖动至任意指定单元格，公式内对象不变；可复制（待鼠标变成黑色十字再拖)；也可利用查找-替换-全部替换单元格如A2---全部换成F15 EXCEL中数字小写换大写方法一： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元 "&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(I SERR(FIND(".0",TEXT(A2,"0.00"))),"角 ","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分 ",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","") EXCEL中数字小写换大写方法二： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元 "&IF((INT(A2*100)-INT((A2)*10)*10)=0,"整","零 "&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A2),"[DBNum2]G/通用格式")&"元 "&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分")) EXCEL中数字小写换大写方法三： =IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT((A2*10-INT(A2*10))*10),"[DBNum2]G/通用格式")&"分") EXCEL中数字小写换大写方法四： =IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整 ",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元 "&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元 "&IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角 ")&TEXT(RIGHT(A2,1),"[DBNUM2]")&"分")) 看看结果是不是出现了你想要的?应该有你需要的大写金额了 公式的由来:
金额大小写转换
金额大小写转换 第一招：釜底抽薪——自动更正法 如果需要重复的输入一个大写数字金额，可以采用自动更正的方法。例如要重复输入“肆仟叁佰伍拾元零伍分”，可以先输入“肆仟叁佰伍拾元零伍分”并选中它，然后执行菜单“工具→自动更正选项”打开“自动更正”对话框，在“替换”下的框内输入“4350.05”并单击“添加”按钮确定后退出，以后直接输入“4350.05”后回车即可快速得到“肆仟叁佰伍拾元零伍分”。 第二招：一劳永逸——编制自动宏 如果有许多小写金额要变成大写的话，用上面的自动更正的方法需要定义很多自动更正项，显然也比较麻烦，其实只需要编辑一个宏就能做到“一劳永逸”了。启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码： Option Explicit Sub 小写金额变大写() Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String Const ZWDX As String = "壹贰叁肆伍陆柒捌玖零" '定义一个中文大写汉字常量 On Error Resume Next '错误忽略 With Selection Numeric = VBA.Round(VBA.V al(.Text), 2) '四舍五入保留小数点后两位 '判断是否在表格中 If .Information(wdWithInTable) Then _ .MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter '对数据进行判断,是否在指定的范围内 If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _ vbOKOnly + vbExclamation, "Warning": Exit Sub IntPart = Int(VBA.Abs(Numeric)) '定义一个正整数 Odd = VBA.IIf(IntPart = 0, "", "圆") '定义一个STRING变量 '插入中文大写前的标签 Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币金额大写:", "人民币金额大写:负") '对小数点后面二位数进行择定 DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100 Select Case DecimalPart Case Is = 0 '如果是0,即是选定的数据为整数 Oddment = VBA.IIf(Odd = "", "", Odd & "整") Case Is < 10 '<10,即是零头是分 Oddment = VBA.IIf(Odd <> "", "圆零" & VBA.Mid(ZWDX, DecimalPart, 1) & "分", _ VBA.Mid(ZWDX, DecimalPart, 1) & "分") Case 10, 20, 30, 40, 50, 60, 70, 80, 90 '如果是角整 Oddment = "圆" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整" Case Else '既有角,又有分的情况
SQL函数_小写金额转换成大写
SQL函数_小写金额转换成大写 /******************************************************** 作者： 版本：1.0 创建时间：20020227 修改时间： 功能：小写金额转换成大写 参数：n_LowerMoney 小写金额 v_TransType 种类 -- 1: directly translate, 0: read it in words 输出：大写金额 ********************************************************/ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[L2U]') and xtype in (N'FN', N'IF', N'TF')) drop function [dbo].[L2U] GO CREATE FUNCTION dbo.L2U(@n_LowerMoney numeric(15,2),@v_TransType int) RETURNS VARCHAR(200) AS BEGIN Declare @v_LowerStr VARCHAR(200) -- 小写金额 Declare @v_UpperPart VARCHAR(200) Declare @v_UpperStr VARCHAR(200) -- 大写金额 Declare @i_I int set @v_LowerStr = LTRIM(RTRIM(ROUND(@n_LowerMoney,2))) --四舍五入为指定的精度并删除数据左右空格 set @i_I = 1 set @v_UpperStr = '' while ( @i_I <= len(@v_LowerStr)) begin select @v_UpperPart = case substring(@v_LowerStr,len(@v_LowerStr) - @i_I + 1,1) WHEN '.' THEN '元' WHEN '0' THEN '零' WHEN '1' THEN '壹' WHEN '2' THEN '贰' WHEN '3' THEN '叁' WHEN '4' THEN '肆' WHEN '5' THEN '伍' WHEN '6' THEN '陆' WHEN '7' THEN '柒' WHEN '8' THEN '捌' WHEN '9' THEN '玖' END + case @i_I WHEN 1 THEN '分' WHEN 2 THEN '角' WHEN 3 THEN ''
EXCEL金额小写转大写公式
EXCEL金额小写转大写公式 近来看了转几个Excel相关论坛，发现有部分网友在寻求数字金额转换为人民币大写的方法。出于好奇，我在网上搜索了一番，什么VBA、加载宏，公式函数各式方法争相亮相，应有尽有。但我的习惯是，只要能用公式解决的问题，坚决不使用VBA。所以我就特别地关注使用公式来生成的方法，结果是用公式的方法可谓是更加地灿烂缤纷，使人眼花缭乱。 通过分析我收集到的二十几个公式，发现比较牛，适合我口味的公式有三个，在此我将其列出。 公式一： SUBSTITUTE(SUBSTITUTE(IF(A1《0，“负”，“”)&TEXT(TRUNC(ABS(ROUND(A1，2)))，“[DBNum2]”)&“元”&IF(ISERR(FIND(“。”，ROUND(A1，2)))，“”，TEXT(RIGHT(TRUNC(ROUND(A1，2)*10))，“[DBNum2]”))&IF(ISERR(FIND(“.0”，TEXT(A1，“0.00”)))，“角”，“”)&IF(LEFT(R IGHT(ROUND(A1，2)，3))=“。”，TEXT(RIGHT(ROUND(A1，2))，“[DBNum2]”)&“分”，IF(ROUND(A1，2)=0，“”，“整”))，“零元零”，“”)，“零元”，“”) 公式二： CONCA TENA TE(IF(A1《0，“负”，“”)，TEXT(IF(TRUNC(A1)=0，“”，TRUNC(ABS(A1)))，“[DBNum2]”)，IF(INT(TRUNC(A1))=0，“”，“元”)，TEXT(IF(OR(ABS(A1)《0.1，TRUNC(A1)=A1)，“”，RIGHT(TRUNC(A1*10)，1))，“[DBNum2]”)，IF(RIGHT(TRUNC(A1*10)，1)=“0”，“”，“角”)，TEXT(IF(RIGHT(TRUNC(A1*100)，1)=“0”，“”，RIGHT(TRUNC(A1*100)，1))，“[DBNum2]”)，IF(RIGHT(TRUNC(A1*100)，1)=“0”，“”，“分”)) 公式三： IF(ROUND(A1，2)=0，“”，IF(ROUND(ABS(A1)，2)》=1，TEXT(INT(ROUND(ABS(A1)，2))，“[DBNum2]”)&“元”，“”)&IF(RIGHT(TEXT(A1，“.00”)，2)*1=0，“整”，IF(RIGHT(TEXT(A1，“.00”)，4)*1》=1，IF(RIGHT(TEXT(A1，“.00”)，2)*1》9，“”，“零”)，IF(ROUND(ABS(A1)，2)》=1，“零”，“”))&IF(RIGHT(TEXT(A1，“.00”)，2)*1》9，
excel小写金额如何转换大写加上元角分
excel小写金额如何转换大写加上元角分？ excel中把小写金额转换成大写是会计工作者在做报表时经常要做的事。 如图中的样式。 工具/原料 电脑、excel 方法/步骤 1. 1 小编用图中的报表做示例。在F2单元格显示E2单元格金额数字的大写。 在F2单元格输入：=SUBSTITUTE(SUBSTITUTE(IF(-RMB(E2),TEXT(E2,";负")&TEXT(INT(ABS(E2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(E2),2),"[dbnum2]0角0分;;整"),),"零角",IF(E2^2<1,,"零")),"零分","整")
2. 2 然后按回车键。 当E2输入数字时，F2即显出大写金额，如图所示。 3. 3 若F2单元格下面还要显示大写，可以把F2的函数公式复制。操作：在F2单元格点下，光标放在右下角，光标即呈+字状态，然后，点住不放，往下拉，拉到F6止，如图中所示。 4. 4 放开鼠标，函数公式即复制在F3至F6；
当E3至E6单元格分别输入数字时，F3至F6单元格分别自动显示出相应的大写金额，如图所示 5. 5 在做报表时，如图中的报表，E2单元格的总金额可以输入自动求和函数公式，只要在B2、C2和D2单元格分别输入数字，在E2单元格会自动计算并显示出得数，F2单元格的大写也会随着E2单元格的数字变化而变化。 例如，现在把上面做出来的B2至E6单元格的数字全部清除； 然后，在E2单元格输入：＝B2+C2+D2，按回车键； 当B2单元格输入数字80时，E2显示出数字80，因为C2和D2单元格都为0，这时，在F2单元格中，显示出E2单元格80金额的大写，如图中所示
正确的人民币大写
正确的人民币大写 银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载账务的会计凭证，是记载经济业务和明确经济责任的一种书面证明。因此，填写票据和结算凭证必须做到标准化、规范化、要素齐全、数字正确、字迹清晰、不错漏、不潦草、防止涂改。 中文大写金额数字应用正楷或行书填写，如壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、 佰、仟、万、亿、元、角、分、零、 整（正）等字样，不得用一、二（两）、三、四、五、六、七、八、九、十、毛、另（或0）填写，不得自造简化字。如果金额数字书写中使用繁体字，如贰、陆、亿、万、圆的，也应受理。 人民币大写的正确写法还应注意以下几项： 一、中文大写金额数字到“元”为止的，在“元”之后、应写“整”（或“正”）字；在“角”之后，可以不写“整”（或“正”）字；大写金额数字有“分”的，“分”后面不写“整”（或“正”）字。 二、中文大写金额数字前应标明“人民币”字样，大写金额数字应紧接“人民币”字样填写，不得留有空白。大写金额数字前未印“人
民币”字样的，应加填“人民币”三字，在票据和结算凭证大写金额栏内不得预印固定的“仟、佰、拾、万、仟、佰、拾、元、角、分”字样。 三、阿拉伯数字小写金额数字中有“0”时，中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。举例如下： 1、阿拉伯数字中间有“0”时，中文大写要写“零”字，如￥1409.50应写成人民币壹仟肆佰零玖元伍角； 2、阿拉伯数字中间连续有几个“0”时、中文大写金额中间可以只写一个“零”字，如￥6007.14应写成人民币陆仟零柒元壹角肆分。 3、阿拉伯金额数字万位和元位是“0”，或者数字中间连续有几个“0”，万位、元位也是“0”但千位、角位不是“0”时，中文大写金额中可以只写一个零字，也可以不写“零”字，如￥1680.32应写成人民币壹仟陆佰捌拾元零叁角贰分，或者写成人民币壹仟陆佰捌拾元叁角贰分。又如￥107000.53应写成人民币壹拾万柒仟元零伍角叁分，或者写成人民币壹拾万零柒仟元伍角叁分。 4、阿拉伯金额数字角位是“0”而分位不是“0”时，中文大写金额“元”后面应写“零”字，如￥16409.02应写成人民币壹万陆仟肆佰零玖元零贰分，又如￥325.04应写成人民币叁佰贰拾伍元零肆分。 四、阿拉伯小写金额数字前面均应填写人民币符号“￥”，阿拉伯小写金额数字要认真填写，不得连写分辨不清。 五、票据的出票日期必须使用中文大写，为防止变造票据的出票
Excel中金额大小写转换
Excel中金额大小写转换 一、Excel中金额大小写转换公式 公式1： “=IF(ROUND(E19,2)=0,"",IF(ROUND(ABS(E19),2)>=1,TEXT(INT(ROUND(ABS(E19),2)),"[ DBNum2]")&"元","")&IF(RIGHT(TEXT(E19,".00"),2)*1=0,"整 ",IF(RIGHT(TEXT(E19,".00"),4)*1>=1,IF(RIGHT(TEXT(E19,".00"),2)*1>9,"","零 "),IF(ROUND(ABS(E19),2)>=1,"零 ",""))&IF(RIGHT(TEXT(E19,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(E19,".00"),2)),"[DBNu m2]")&"角 ","")&IF(RIGHT(TEXT(E19,".00"))*1>0,TEXT(RIGHT(TEXT(E19,".00")),"[DBNum2]")&"分","整")))” 公式2：“=IF(F4<1,IF(F4<0.1,TEXT(INT(F4*100),"[DBNum2]G/通用格式")&"分 ",IF((INT(F4*100)-INT(F4*10)*10=0),TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分 ")),TEXT(INT(F4),"[DBNum2]G/通用格式"&"元 ")&IF((INT(F4*10)-INT(F4)*10)=0,IF((INT(F4*100)-INT(F4*10)*10)=0,"","零 "),IF((INT(F4*0.1)-INT(F4)*0.1)=0,"零","")&TEXT(INT(F4*10)-INT(F4)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(F4*100)-INT(F4*10)*10)=0,"整 ",TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分"))” 公式3：“=IF(B10<1,IF(B10<0.1,TEXT(INT(B10*100),"[DBNum2]G/通用格式")&"分 ",IF((INT(B10*100)-INT(B10*10)*10=0),TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分 ")),TEXT(INT(B10),"[DBNum2]G/通用格式"&"元 ")&IF((INT(B10*10)-INT(B10)*10)=0,IF((INT(B10*100)-INT(B10*10)*10)=0,"","零 "),IF((INT(B10*0.1)-INT(B10)*0.1)=0,"零 ","")&TEXT(INT(B10*10)-INT(B10)*10,"[DBNum2]G/通用格式")&"角 ")&IF((INT(B10*100)-INT(B10*10)*10)=0,"整 ",TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分"))” 二、Excel中金额大小写转换函数[=ntoc(单元格)] 使用加载宏方法： “工具栏”→“宏”→“V isual Basic编辑器”，在“Visual Basic编辑器”中顶部选“插入”→“模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容： Function NtoC(n) 'n as single Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分" Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整" NtoC = "" sNum = Trim(Str(Int(n * 100)))
把金额转换为大写
using System; namespace HaiNuo { /***************************************************************************************** * 类名：DecimalToUpper * 功能：把金额数据从小写转换为大写 * 限制条件：金额小于一万亿，且少于两位小数 * 作者：雷俊强junqiang_china@https://www.360docs.net/doc/ba14041143.html, * 日期：2003-5-6 * 用法：DecimalToUpper x = new DecimalToUpper(); * this.textBox2.Text = x.ToUpper(d); * 欢迎下载、使用 * * FOR my wife and my son * *****************************************************************************************/ public class DecimalToUpper { public DecimalToUpper()
{ // // TODO: 在此处添加构造函数逻辑 // } ///