中英文金额大写自动转换器(美元、港币等)
VBA数字转换中文货币大写
《VBA数字转换中文货币大写》使用说明：本程序可在各种支持VBA语言的软件上直接使用，其中MS Excel和MS Access已成功测试。
（把程序复制到VBA编程器里即可直接使用）程序使用方法如下图：程序：Public Function CRMB(ByVal StrRMB As String) As StringDim i As Long, k As Long, j As Long, N As LongDim RMB As String, intString As String, decString As String, tmpString() As String, cnNumber() As String, cnUnit() As StringOn Error GoTo cnstr_err:'初始化中文数字、单位cnNumber = Split("零,壹,贰,叁,肆,伍,陆,柒,捌,玖", ",")cnUnit = Split("分,角,元,拾,佰,仟,万,拾,佰,仟,亿,拾,佰,仟,兆,拾,佰,仟,京,拾,佰,仟,垓,拾,佰,仟", ",") decString = ""intString = StrRMBtmpString = Split(StrRMB, ".")If UBound(tmpString) ThenintString = tmpString(0)decString = tmpString(1)End IfintString = intString & Left(decString & "00", 2)k = Len(intString) - 1If k > 25 Then 'Len(cnUnit) - 1RMB = StrRMB '超出转换范围，返回原值ElseIf Val(intString) = 0 ThenRMB = ""ElseFor i = 0 To kj = Val(Mid(intString, i + 1, 1))RMB = RMB & cnNumber(j) & cnUnit(k - i) Next iRMB = Replace(RMB, "零分", "零")RMB = Replace(RMB, "零角", "零")RMB = Replace(RMB, "零拾", "零")RMB = Replace(RMB, "零佰", "零")RMB = Replace(RMB, "零仟", "零")RMB = Replace(RMB, "零零零", "零")RMB = Replace(RMB, "零零", "零")RMB = Replace(RMB, "零元", "元")RMB = Replace(RMB, "零万", "万")RMB = Replace(RMB, "零亿", "亿")RMB = Replace(RMB, "零兆", "兆")RMB = Replace(RMB, "零京", "京")RMB = Replace(RMB, "零垓", "垓")RMB = Replace(RMB, "垓京兆亿万", "垓")RMB = Replace(RMB, "垓京兆亿", "垓")RMB = Replace(RMB, "京兆亿万", "京")RMB = Replace(RMB, "垓京兆", "垓")RMB = Replace(RMB, "京兆亿", "京")RMB = Replace(RMB, "兆亿万", "兆")RMB = Replace(RMB, "垓京", "垓")RMB = Replace(RMB, "垓兆", "垓")RMB = Replace(RMB, "垓亿", "垓")RMB = Replace(RMB, "垓万", "垓")RMB = Replace(RMB, "京兆", "京")RMB = Replace(RMB, "京亿", "京")RMB = Replace(RMB, "京万", "京")RMB = Replace(RMB, "兆亿", "兆")RMB = Replace(RMB, "兆万", "兆")RMB = Replace(RMB, "亿万", "亿")If Right(RMB, 2) = "元零" Then '整元时RMB = Left(RMB, Len(RMB) - 1) & "整"ElseIf Right(RMB, 2) = "角零" Then '有角或分时RMB = Left(RMB, Len(RMB) - 1)End IfEnd Ifcnstr_exit: CRMB = RMB Exit Function cnstr_err:RMB = "" Resume cnstr_exit End Function。
vb金额大写转换代码
vb金额大写转换代码VB金额大写转换代码概述在日常工作中，我们经常需要将数字金额转换为大写金额，以便于填写发票、合同等文书。
本文将介绍使用VB编写的金额大写转换代码。
实现思路将数字金额按照一定的规则进行分割，然后根据规则进行转换，最后拼接成大写金额。
具体实现步骤如下：1. 将数字金额分为整数部分和小数部分。
2. 将整数部分按照四位一组进行分割，每组之间添加“万”、“亿”等单位。
3. 对于每一组，再按照千位、百位、十位、个位的顺序进行转换，并添加相应的单位。
4. 对于小数部分，先将其转化为整数部分处理。
处理完毕后，在最后加上“角”、“分”等单位。
5. 最后将整数部分和小数部分拼接起来，并加上“元”、“整”等单位即可。
代码实现以下是使用VB编写的金额大写转换代码：```Public Function ConvertToChinese(ByVal d As Double) As String Dim strNum As String = d.ToString("F2")Dim strInt As String = strNum.Split(".")(0)Dim strDec As String = strNum.Split(".")(1)Dim iLen As Integer = strInt.LengthDim iUnit() As Integer = {100000000, 10000, 1000, 100, 10, 1} Dim strUnit() As String = {"亿", "万", "千", "百", "十", ""}Dim strResult As String = ""For i As Integer = 0 To iLen - 1Dim iNum As Integer = Val(strInt.Substring(i, 1))If iNum > 0 ThenstrResult += GetChineseNum(iNum) & strUnit(iLen - i - 1) ElseIf i Mod 4 = 0 And (i < iLen - 1 OrElse d >= iUnit(2)) ThenstrResult += strUnit(iLen - i - 1)End IfNextIf Not strDec.Equals("00") ThenDim iDec As Integer = Val(strDec)If Not strResult.Equals("") ThenstrResult += "零"End IfIf iDec >= 10 ThenstrResult += GetChineseNum(Val(strDec.Substring(0, 1))) & "角"If Not Val(strDec.Substring(1, 1)) = 0 ThenstrResult += GetChineseNum(Val(strDec.Substring(1, 1))) & "分"End IfElseIf Not Val(strDec.Substring(0, 1)) = 0 ThenstrResult += GetChineseNum(Val(strDec.Substring(0, 1))) & "角"End IfIf Not Val(strDec.Substring(1, 1)) = 0 ThenstrResult += GetChineseNum(Val(strDec.Substring(1, 1))) & "分"End IfEnd IfElsestrResult += "整"End IfReturn strResultEnd FunctionPrivate Function GetChineseNum(ByVal i As Integer) As String Dim strNum() As String = {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"}Return strNum(i)End Function```代码解析1. 首先将传入的数字金额转换为字符串，并分割成整数部分和小数部分。
数字金钱转大写金钱万仟佰拾亿仟佰拾万仟佰拾元角分
数字金钱转大写金钱万仟佰拾亿仟佰拾万仟佰拾元角分/// <summary>/// 数字金钱转大写金钱万仟佰拾亿仟佰拾万仟佰拾元角分/// </summary>public class ToCapitalRMB{public static string RMBEncode(decimal num){try{string str1 = "零壹贰叁肆伍陆柒捌玖";string str2 = "万仟佰拾亿仟佰拾万仟佰拾元角分";string str3 = "";string str4 = "";string str5 = "";string ch1 = "";string ch2 = "";int nzero = 0;num = Math.Round(Math.Abs(num), 2);str4 = ((long)(num * 100M)).ToString();int j = str4.Length;if (j > 15){return "溢出";}str2 = str2.Substring(15 - j);for (int i = 0; i < j; i++){str3 = str4.Substring(i, 1);int temp = Convert.ToInt32(str3);if ((((i != (j - 3)) && (i != (j - 7))) && (i != (j - 11))) && (i != (j - 15))){if (str3 == "0"){ch1 = "";ch2 = "";nzero++;}else if ((str3 != "0") && (nzero != 0)){ch1 = "零" + str1.Substring(temp, 1);ch2 = str2.Substring(i, 1);nzero = 0;}else{ch1 = str1.Substring(temp, 1);ch2 = str2.Substring(i, 1);nzero = 0;}}else if ((str3 != "0") && (nzero != 0)) {ch1 = "零" + str1.Substring(temp, 1);ch2 = str2.Substring(i, 1);nzero = 0;}else if ((str3 != "0") && (nzero == 0)) {ch1 = str1.Substring(temp, 1);ch2 = str2.Substring(i, 1);nzero = 0;}else if ((str3 == "0") && (nzero >= 3)) {ch1 = "";ch2 = "";nzero++;}else if (j >= 11){ch1 = "";nzero++;}else{ch1 = "";ch2 = str2.Substring(i, 1);nzero++;}if ((i == (j - 11)) || (i == (j - 3))){ch2 = str2.Substring(i, 1);}str5 = str5 + ch1 + ch2;if ((i == (j - 1)) && (str3 == "0")){str5 = str5 + '整';}}if (num == 0M){str5 = "零元整";}return str5;}catch{return "非法数据";}}public static string RMBEncode(string numstr){try{return RMBEncode(Convert.ToDecimal(numstr));}catch{return "非数字形式！";}}}教你如何用WORD文档(2012-06-27 192246)转载▼标签：杂谈1. 问：WORD 里边怎样设置每页不同的页眉？如何使不同的章节显示的页眉不同？答：分节，每节可以设置不同的页眉。
中英合同金额数字的表达
合同金额数字的表达【1 】Expression of Amount in Contract英文中金额的大写,由三个部分构成：“SAY + 泉币”+ 大写数字（amount in words）+ ONLY(相当于我们的“整”).和汉语不合的是,数字中有零不必写出来,而是把数字读法写出来即可.如： 1 146 725.00 美元SAY US DOLLARS ONE MILLION ONE HUNDRED AND FORTY SIX THOUSAND SEVEN HUNDRED AND TWENTY FIVE ONLYHKD12 176SAY HONG KONG DOLLARS TWELVE THOUSAND ONE HUNDRED AND SEVENTY SIX ONLY.18,800,000美金Eighteen million eight hundred thousand U.S. Dollars 假如金额有小数,罕有的有三种表达办法：1. ...AND CENTS…(cents in words) ONLY, 如：USD 100.25 可以写成SAY US DOLLARS ONE HUNDRED AND CENTS TWENTY FIVE ONLY2. …AND POINT…(cents in words) ONLY. 如：JPY1 100.55 可以写成JAPANESE YUAN ONE THOUSAND ONE HUNDRED AND POINT FIFTY FIVE ONLY EURO DOLLARS THIRTEEN THOUSAND SIX HUNDRED AND FIFTY EIGHT 85/100 ONLY英文金额表达式中,小数点前每三位必须有一个逗号,接近小数点的第一个逗号是Thousand（千), 以此类推,第二个逗号是Million （百万）,第三个逗号是Billion（十亿）;并且英文中小数点后面的数字都是按单个数字来读,不连在一路读.SAY US DOLLARS (...........) ONLY.SAY US DOLLARS ONE MILLION AND TWO HUNDRED THIRTY-FOUR THOUSAND AND FIVE HUNDRED SIXTY-SEVENa million two hundred thirty-four thousand and five hundred and sixty-seven point eight nine dollarsmillion:百万thousand:千point:点“a million”是“100万”,因为英文是没有“十万.万”这两个单位的,所以说“.十万.万”的时刻用英文是用“千”作为单位,也就是“100个千.10个千”,所以上面就是“two hundred thirty-four thousand （234个千）”.Amount:$1,234,567.89(Say U .S .Dollars One Million Two HundredThirty-four ThousandAnd Five Hundred And Sixty-seven Point Eight only)USD240,000.00 SAY US DOLLARS TWO HUNDRED AND FORTY THOUSANDONLY.USD2755.00 SAY US DOLLARS TWO THOUSAND SEVEN HUNDRED ANDFIFTY-FIVEONLYEUR4768.36 SAY EUROPEAN DOLLARS FOUR THOUSAND SEVEN HUNDREDAND SIXTY-EIGHT AND CENTS THIRTY-SIX ONLYEUR5194.00 SAY EUROPEAN DOLLARS FIVE THOUSAND ONE HUNDREDAND NINETY-FOUR ONLYUSD12150 Say US DOLLARS Twelve thousand one hundred and fifty dollars onlyUSD14257.1 Say US DOLLARS Fourteen thousand two hundred and fifty-sevenand cent one onlyUSD13711.5 Say US DOLLARS Thirteen thousand seven hundred and elevenand cent five onlyUSD12150 SAY US DOLLARS TWELVE THOUSAND ONE HUNDREDAND FIFTY DOLLARS ONLYUSD14257.1 SAY US DOLLARS FOURTEEN THOUSAND TWO HUNDREDAND FIFTY-SEVEN AND CENT ONE ONLYUSD13711.5 SAY THIRTEEN THOUSAND SEVEN HUNDRED AND ELEVENAND CENT FIVE ONLY为防止金额数目的差漏.捏造或涂改,英文合同对于金额有十分严厉的规范.一是在小写(阿拉伯数字)的后面用括号内的大写(文字数字)重写, 即使原文合同中没有大写,英译时也有须要加上大写;二是泉币单位精确无误;三是大写请求顶格,前加动词SAY（即为）,单词之间疏密平均,在大写文字前加上“SAY”,意为“大写”;在最后加上“ONLY”.意思为“整”.必须留意：小写与大写的金额数目要一致.例：甲方方须每月付给乙方美元 500 元整.Party A shall pay Party B a monthly salary of USD $ 500 (SAY FIVE HUNDRED US DOLLARS ONLY).一般是中文的大写在前面,后面用括号加小写阿拉伯数字;但翻译成英文时正好相反：小写在前面,后面是大写.例：人平易近币叁仟元整（3,000元整）的英文表达为 RMB3,000 (RMB THREE THOUSAND ONLY IN WORD)这里,中文的“整”可以用only in word 或者仅用only 表达.RMB可以用人平易近币符号￥代替.英文US Dollar 可以用US $代替,也可以简略用USD表达,但要留意符号“$”既可代表“美元”,又可代表其他某些地区的泉币,如港币HK$;大写前面的SAY （即）往往被省略.美元U.S DOLLAR用单复数均可.例：美元叁仟元整（美元3,000元整）的英文表达为 US Dollar 3,000 (SAY USD THREE THOUSAND ONLY IN WORD)例：AMOUNT: $1,234,567.89（U.S DOLLARS ONE MILLION TWO HUNDRED THIRTY-FOUR THOUSAND AND FIVE HUNDRED AND SIXTY-SEVEN POINT EIGHT ONLY）当金额用数字书写时,金额数字必须紧靠泉币符号,例如：Can $891,568,不克不及写成：Can $ 891,568.别的,翻译的还要特殊留意金额中是小数点（.）照样分节号（,）,因为这两个符号极易引起笔误.and用于百位与个十位之间,以及整数与分数之间：$68,601.50 = Say US Dollar Sixty Eight Thousand Six Hundred and One and Fifty Cent Only.$78,675.05= Say US Dollar Seventy Eight Thousand Six Hundred and Seventy Five and Five Cent Only.The overall purchasing amount of the first half of this year is: Two million, six hundred and sixty-two thousand, two hundred and thirty-nine, point two three (yuan)The purchasing amount of yesterday is: Sixty-one thousand, nine hundred and seventy-one, point four one (yuan)。
数字转换为英文大写
数字转换为英⽂⼤写之前⼀个⽹友⼯作中需要把数字转换为英⽂⼤写，于是就给他写了⼀个。
函数有两个参数，数字和单位。
第⼆个参数为计量单位，可以是货币也可以是重量。
代码如下：1Function Num2Str(FullNum As Variant, NumUnit As Integer)2Dim NumLen As Integer3Dim i As Integer4Dim ArrUnit5Dim SubUnit6Dim Factor7Dim Num As Variant8Dim Dec As String910 ArrUnit = Array("Dollar", "Euro", "KG", "KPC")11 SubUnit = Array("Cent", "Cent", "G", "PC")12 Factor = Array(100, 100, 1000, 1000)1314 Num = Int(FullNum)15 Dec = Right(Application.Round(((FullNum - Num) * Factor(NumUnit)), 0) + 1000, 3)1617 NumLen = Application.RoundUp(Len(Num) / 3, 0)18 Num2Str = ""1920For i = NumLen To1Step -121 Num2Str = Num2Str & NumPart(Mid(10 ^ (3 * NumLen) + Num, 2 + 3 * NumLen - 3 * i, 3), i)22Next i2324 Num2Str = Num2Str & "" & ArrUnit(NumUnit)25If Num > 1Then Num2Str = Num2Str & "s"26If Dec <> "000"Then27 Num2Str = Num2Str & NumPart(Dec, 1) '28 Num2Str = Num2Str & "" & SubUnit(NumUnit)29If Dec <> "001"Then Num2Str = Num2Str & "s"30End If31 Num2Str = Num2Str & "."3233End Function3435Function NumPart(Num As String, Part As Integer)36Dim ArrNum37Dim ArrTen38Dim ArrTeen39Dim iDigit As Integer4041 ArrNum = Array("One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")42 ArrTen = Array("Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninty")43 ArrTeen = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")4445 iDigit = Left(Num, 1)46If iDigit <> 0Then NumPart = "" & ArrNum(iDigit - 1) & " Hundred"4748 iDigit = Mid(Num, 2, 1)49If iDigit = 1Then50 iDigit = Right(Num, 1)51 NumPart = NumPart & "" & ArrTeen(iDigit) & ""52GoTo Unit53Else54If iDigit <> 0Then NumPart = NumPart & "" & ArrTen(iDigit - 2)55End If5657 iDigit = Right(Num, 1)58If iDigit <> 0Then NumPart = NumPart & "" & ArrNum(iDigit - 1)5960 Unit:61If Part = 3Then NumPart = NumPart & " Million "62If Part = 2Then NumPart = NumPart & " Thousand "6364End Function。
美元大写金额怎么写
1.美元 25490.80 大写怎么写中文大写为：贰万伍仟肆佰玖拾美元捌拾美分。
英文大写为：SAY US DOLLARS TWENTY-FIVE THOUSAND,FOUR HUNDRED AND NINETY AND CENTS EIGHTY ONLY。
关于美元金额的大写：英文中金额的大写，由三个部分组成：“SAY + 货币”+ 大写数字（amount in words）+ ONLY（相当于我们的“整”）。
和汉语不同的是，数字中有零不用写出来，而是把数字读法写出来即可。
如：1146725.00 SAY US DOLLARS ONE MILLION ONE HUNDRED AND FORTY SIX THOUSAND SEVEN HUNDRED AND TWENTY FIVE ONLY。
2、美点表达：（拼出大写字母）比如： JPY1456.36 用英文大写拼出来是 SAY JAPANESE YUAN FOUR HUNDRED AND FIFTY-SIX AND POINT THIRTY-FIVE ONLY。
3、分数表达法：（只接受数字），eg:USD 987.36 转换到分数是： SAY US DOLLARS NINE HUNDRED AND EIGHTY-SEVEN AND THIRTY-SIX 36/100 ONLY。
2.31245.8美元大写金额怎么写叁万壹仟贰佰肆拾伍美元捌拾美分大写金额既大写数字是东亚地区特有的数字书写方式，利用与数字同音的汉字取代数字，以防止数目被涂改。
据考证，大写数字最早是由武则天发明，后经朱元璋改进完善。
大写金额数字的使用始于明朝。
朱元璋因为当时的一件重大贪污案“郭桓案”而发布法令，其中明确要求记账的数字必须由“一、二、三、四、五、六、七、八、九、十、百、千”改为“壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰（陌）、仟（阡）”等复杂的汉字，用以增加涂改帐册的难度。
后来“陌”和“阡”被改写成“佰、仟”，并一直使用至今。
将阿拉伯数字金额转换成中文大写数字金额的转换类money_convert
package com.newer;/** To change this template, choose Tools | Templates* and open the template in the editor.*///package mon;import java.math.RoundingMode;import java.text.NumberFormat;import java.util.HashMap;import java.util.Map;/*** 将阿拉伯数字金额转换成中文大写数字金额的转换类* @author yzy*/public class MoneyConvert {* 将阿拉伯数字金额转换成中文大写数字金额* @param money * @returnpublic static String toCNMoney(double money) {//转换成指定格式的数字NumberFormat fmt = NumberFormat.getInstance();fmt.setMaximumFractionDigits(2);//两位小数fmt.setRoundingMode(RoundingMode.HALF_UP); //四舍五入fmt.setGroupingUsed(false);//不要千分号money = Double.valueOf(fmt.format(money));Map<Integer, String> numbersMap = new HashMap<Integer, String>(10);String[] section = {"", "萬", "億", "兆"};//拆分为四大块,精确到万亿位,即兆// String[] positions = {"拾", "佰", "仟"};String[] numbers = {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"};for (int i = 0; i < numbers.length; i++) {numbersMap.put(i, numbers[i]);}String result = "";//1.处理小数位(如果有)if (fmt.format(money).contains(".")) {int remainder = (int) ((money * 100) % 100);//取余int a = remainder / 10;if (a != 0) {result = numbersMap.get(a) + "角";}int b = remainder % 10;if (b != 0) {if (a == 0) {result += numbersMap.get(0) + numbersMap.get(b) + "分";//处理特殊情况，如2.05(贰圆零伍分)} else {result += numbersMap.get(b) + "分";} } }//2.处理整数位long total = (long) (money * 100 / 100);//取整if (total == 0) {return result.equals("") ? (numbersMap.get(0) + "圆") : result;//少于1元} int j = 0; String tempResult = "";do { //每次处理四位数long t = (total % 10000);String str = MoneyConvert.thousandToUpperCase((int) t, numbersMap, null);total = total / 10000;if (total != 0 && t > 0 && t < 1000) {str = numbersMap.get(0) + str;//如果每次处理之后还有万位且前次处理的四位取余t(0<t<1000)，则前面应补零}tempResult = str + section[j] + tempResult; j++;} while (total != 0);//3.最后别忘了金额单位result = tempResult + "圆" + result;return result; }/处理千位以内阿拉伯数字金额*@param number*@param numbersMap*@param result* @return */private static String thousandToUpperCase(int number, Map<Integer, String> numbersMap, String result) { result = result == null ? "" : result;if (number < 10) { return number == 0 ? result : (result + numbersMap.get(number));//取出个位}if (number < 100) {result = result + numbersMap.get(number / 10) + "拾";//取出十位return thousandToUpperCase(number % 10, numbersMap, result); } if (number < 1000) {result = result + numbersMap.get(number / 100) + "佰";//取出百位//处理特殊情况，如201if (0 < number % 100 && number % 100 < 10) {result += numbersMap.get(0);//加个零}return thousandToUpperCase(number % 100, numbersMap, result); } if (number < 10000) {result = result + numbersMap.get(number / 1000) + "仟";//取出千位//处理特殊情况，如2001,2011if (0 < number % 1000 && number % 1000 < 100) {result += numbersMap.get(0);//加个零}return thousandToUpperCase(number % 1000, numbersMap, result); } return result; }public static void main(String[] args) {System.out.println(MoneyConvert.toCNMoney(1010101010101.00));System.out.println(MoneyConvert.toCNMoney(100.00));}}。
人民币金额大小写转换工具在线
人民币金额大小写转换工具在线人民币小写在线转换成大写人民币大写规则的写法和繁体字转换有点不一样，比如10000应该写作“壹万”而非“壹萬”。
人民币大写在线转换工具，可以将人民币小写金额转换为大写金额，轻巧绿色且使用简便，使您免去了一个个输入大写文字的烦恼。
如果你有外贸财务方面的问题，可以前往>>福步外贸财务专区转换方法：只要在下面的小写金额框中填入人民币金额的小写阿拉伯数字，例如1688.99，然后点击“转换为大写金额”按钮即可得转换成汉字。
在输入数字的时候，可以包含小数点，也可以写成千进制，例如1,688.99（注意是英文逗号，而不是中文逗号）。
人民币金额用到的中文大写汉字如下：零、壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿。
人民币常识人民币（缩写为RMB）是我国大陆地区的法定货币，尽管每个人几乎天天都要接触到人民币或者支票，但是人民币大写如何写是困扰很多人的问题。
尽管生活中看起来极其熟悉而又简单的东西，但发现其实并不会写。
人民币在ISO 4217简称为CNY（China Yuan），常用简写为RMB（Ren Min Bi）；人民币货币的符号是“ ￥”（'Y'+'='），读音为“YUAN”。
人民币按照材料的自然属性划分，有金属币（亦称硬币）、纸币（亦称钞票）。
无论纸币、硬币均等价流通，至今已发行了五套人民币。
人民币大写规范详细介绍银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。
票据和结算凭证是银行、单位和个人凭以记载账务的会计凭证，是记载经济业务和明确经济责任的一种书面证明。
因此，填写票据和结算凭证必须做到标准化、规范化、要素齐全、数字正确、字迹清晰、不错漏、不潦草、防止涂改。
中文大写金额数字应用正楷或行书填写，如壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整(正)等字样，不得用一、二(两)、三、四、五、六、七、八、九、十、毛、另(或0)填写，不得自造简化字。
excel金额转换大写的函数
excel金额转换大写的函数
在 Excel 中，有一种名为"currency"的函数可以用来将数字转换为大写形式。
该函数的语法如下:
```
currency(value, currency_code)
```
其中，`value`是要转换的数字，`currency_code`是指定要使用的货币代码。
例如，要将 100 美元转换为英镑，可以使用以下公式: ```
=currency(100, "GBP")
```
这个公式将返回一个大写英镑符号"",表示 100 英镑。
请注意，currency 函数只适用于某些货币，并且不是所有货币都支持大写形式。
如果需要将所有数字转换为大写形式，可以使用以下公式:
```
=TEXT(value, "[$-][#,##0.00];[0000][#,##0.00];")
```
这个公式将返回一个包含数字的大写形式字符串，例如:"100.00"。
如果需要将特定单元格中的数字转换为大写形式，可以使用以下公式:
```
=TOTEXT(value, "[$-][#,##0.00];[0000][#,##0.00];")
```
这个公式将返回一个包含数字的大写形式字符串，仅限于支持大写形式的货币。
rmb大写转换
rmb大写转换
1.常用人民币大写：
零、壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、圆(元)、角、分、零、整(正)
2.常用货币符号:
人民币符号（RMB）:￥；美元符号（USD）：$；欧元符号（EUR）：€；英镑符号（GBP）：￡；（货币符号可直接按鼠标选中后复制使用）
3.数字大小写-使用说明：
a、汉字大写金额数字标准写法：壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整(正)等字样，不得用一、二(两)、三、四、五、六、七、
八、九、十、廿、毛、另(或0)填写，不得简写汉字。
b、中文数字大写金额以「元」结尾的在最后应写「整」、「正」结尾，在角、分结尾可以不写。
c、大写金额数字前应标明“人民币”字样，大写金额数字应紧接“人民币”字样填写，不得留有空白。
d、阿拉伯数字小写金额数字中有“0”时，中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。
e、例如：￥708000.63应写成人民币柒拾万捌仟元零
陆角叁分或写成人民币柒拾万零捌仟元陆角叁分。
数字转大写英文货币的bas格式文件
数字转大写英文货币的bas格式文件要将数字转换为大写英文货币的bas格式文件，可以使用以下代码：```vbFunction ConvertToCurrency(ByVal MyNumber)Dim Units As StringDim SubUnits As StringDim TempStr As StringDim DecimalPlace As IntegerDim Count As IntegerReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "' Convert MyNumber to STRING rounding to two decimal places.MyNumber = Trim(Str(MyNumber))DecimalPlace = InStr(MyNumber, ".")Count = 1If DecimalPlace > 0 ThenMyDec = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))End IfReDim Num(NumDigits(MyNumber) \ 3) As StringIf Len(MyNumber) > 0 ThenFor Each NumPart In Reverse(Reverse(MyNumber), 3)If NumPart <> "0" ThenUnit = ""SubUnit = ""Select Case Getdigits(NumPart)Case 1Unit = GetDigit(NumPart, 1)Case 2If GetTens(NumPart) <> "0" Then Unit = GetTens(NumPart) If GetUnits(NumPart) <> "0" Then SubUnit =GetDigit(NumPart, 1)Case 3Unit = GetDigit(NumPart, 1)SubUnit = GetTens(NumPart)End SelectIf Unit = "One" Then Units = Place(Count) Else Units = Unit & Place(Count)SubUnits = SubUnit & " " & SubUnitsEnd IfIf Trim(Units & SubUnits) <> "" Then MyNumber =Trim(Units & SubUnits) & Place(Count - 1) & "and " & MyNumber ReDim Preserve Num(Count)Count = Count + 1Next NumPartEnd IfConvertToCurrency = Trim(MyNumber & " and " & MyDec)End FunctionFunction Getdigits(ByVal digits)Getdigits = Len(CStr(digits))End FunctionFunction GetDigit(ByVal digits, ByVal Position)GetDigit = Mid(CStr(digits), Position, 1)End FunctionFunction GetUnits(ByVal digits)GetUnits = GetDigit(digits, 2)End FunctionFunction GetTens(TensText)Dim Result As StringResult = "" ' Null out the temporary function value.If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...Select Case Val(TensText)Case 10: Result = "Ten"Case 11: Result = "Eleven"Case 12: Result = "Twelve"Case 13: Result = "Thirteen"Case 14: Result = "Fourteen"Case 15: Result = "Fifteen"Case 16: Result = "Sixteen"Case 17: Result = "Seventeen"Case 18: Result = "Eighteen"Case 19: Result = "Nineteen"Case ElseEnd SelectElse ' If value between 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "Twenty "Case 3: Result = "Thirty "Case 4: Result = "Forty "Case 5: Result = "Fifty "Case 6: Result = "Sixty "Case 7: Result = "Seventy "Case 8: Result = "Eighty "Case 9: Result = "Ninety "Case ElseEnd SelectResult = Result & GetDigit(TensText, 2) ' Retrieve ones place.End IfGetTens = ResultEnd FunctionFunction Reverse(str)Dim i As IntegerDim strTemp As StringstrTemp = ""For i = Len(str) To 1 Step -1 strTemp = strTemp & Mid(str, i, 1) NextReverse = strTempEnd FunctionFunction NumDigits(ByVal digits) Dim ReturnValue As Integer ReturnValue = 0Do While digits <> 0digits = Int(digits / 10) ReturnValue = ReturnValue + 1LoopNumDigits = ReturnValueEnd Function```此代码定义了许多函数来处理数字的不同部分，最后使用`ConvertToCurrency`函数将数字转换为大写英文货币的字符串。
人民币金额大小写转换工具在线
人民币金额大小写转换工具在线人民币小写在线转换成大写人民币大写规则的写法和繁体字转换有点不一样，比如10000应该写作“壹万”而非“壹萬”。
人民币大写在线转换工具，可以将人民币小写金额转换为大写金额，轻巧绿色且使用简便，使您免去了一个个输入大写文字的烦恼。
如果你有外贸财务方面的问题，可以前往>>福步外贸财务专区转换方法：只要在下面的小写金额框中填入人民币金额的小写阿拉伯数字，例如1688.99，然后点击“转换为大写金额”按钮即可得转换成汉字。
在输入数字的时候，可以包含小数点，也可以写成千进制，例如1,688.99（注意是英文逗号，而不是中文逗号）。
人民币金额用到的中文大写汉字如下：零、壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿。
人民币常识人民币（缩写为RMB）是我国大陆地区的法定货币，尽管每个人几乎天天都要接触到人民币或者支票，但是人民币大写如何写是困扰很多人的问题。
尽管生活中看起来极其熟悉而又简单的东西，但发现其实并不会写。
人民币在ISO 4217简称为CNY（China Yuan），常用简写为RMB（Ren Min Bi）；人民币货币的符号是“ ￥”（'Y'+'='），读音为“YUAN”。
人民币按照材料的自然属性划分，有金属币（亦称硬币）、纸币（亦称钞票）。
无论纸币、硬币均等价流通，至今已发行了五套人民币。
人民币大写规范详细介绍银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。
票据和结算凭证是银行、单位和个人凭以记载账务的会计凭证，是记载经济业务和明确经济责任的一种书面证明。
因此，填写票据和结算凭证必须做到标准化、规范化、要素齐全、数字正确、字迹清晰、不错漏、不潦草、防止涂改。
中文大写金额数字应用正楷或行书填写，如壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整(正)等字样，不得用一、二(两)、三、四、五、六、七、八、九、十、毛、另(或0)填写，不得自造简化字。
英文金额大写书写格式
英文金额大写书写格式英文金额大写书写格式是指将阿拉伯数字表示的金额转换为相应的英文大写形式。
在商务和财务文件中，经常需要将金额以英文形式写出来，以便更清晰地表达金额的数值。
以下是英文金额大写书写的常用格式：1. 基本规则：- 金额应该按照整数和小数两部分书写，用连字符（hyphen）连接。
例如：USD 1,234.56 应写为 'one thousand two hundred thirty-four dollars and fifty-six cents'。
- 当金额为整数时，应在末尾加上 'and zero cents' 表示零分。
例如：USD 1,000 应写为 'one thousand dollars and zero cents'。
- 小数部分的书写应根据小数位数来决定，例如：USD 1.50 应写为 'one dollar and fifty cents'。
2. 金额的书写规则：- 整数部分应按照每三位一组的方式进行分组。
例如：USD1,000,000 应写为 'one million dollars'。
- 每组的书写方式与数字的读法相似，例如：USD 123,456 应写为 'one hundred twenty-three thousand four hundred fifty-six dollars'。
- 对于 '0' 开头的数字，可以省略 'and'。
例如：USD 0.50 可以写为 'fifty cents' 而不是 'zero dollars and fifty cents'。
3. 货币单位的书写：- 每个货币单位都有相应的固定表达方式。
例如：USD 为美元、EUR 为欧元、CNY 为人民币等。
- 货币单位应放在金额的最前面，并用大写字母表示。
财务金额的自动化大小写转换
财务金额的自动化大小写转换在与报销单类似的财务单据填写过程中，货币金额的小写和大写转化是一个很重要的环节，在手工处理时，不但输入时很繁琐，而且还往往会出现不符合财务上描述货币数字的情况。
在本例中，我们事先自定义一个函数，然后再利用自定义的函数来实现自动转换，具体的操作步骤如下：（1）执行菜单栏中的【工具】|【宏】|【Visual Basic编辑器】命令，进入“Visual Basic编辑”窗口。
（2）在“Visual Basic编辑”窗口中，执行菜单栏中的【插入】|【模块】命令，插入一个模块（如图1所示）。
双击左侧的“模块1”，在窗口右边展开“模块1（代码）”编辑窗口，输入如下代码：图1 插入模块Function dx(q)ybb = Round(q * 100) '将输入的数值扩大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 & "元" & "整"d1 = zy & "元"If f <> 0 And j <> 0 Thendx = d1 & zj & "角" & zf & "分"If y = 0 Thendx = zj & "角" & zf & "分"End IfEnd IfIf f = 0 And j <> 0 Thendx = d1 & zj & "角" & "整"If y = 0 Thendx = zj & "角" & "整"End IfEnd IfIf f <> 0 And j = 0 Thendx = d1 & zj & zf & "分"If y = 0 Thendx = zf & "分"End IfEnd IfIf q = "" Thendx = 0 '如没有输入任何数值为0End IfEnd Function提示：代码中“dx”是自定义函数名称，读者可以修改为其他字符。