阿拉伯数字金额转换为英文会计金额

阿拉伯数字金额转换为英文会计金额（精选5篇）

篇1：阿拉伯数字金额转换为英文会计金额

Excel表格中如何将数字金额转换为英文

（如B1列写162890元，自动转换为英文

ONE HUNDRED SIXTY TWO THOUSAND EIGHT HUNDRED NINETY DOLLARS AND NO CENTS）

1、新建Excel表格

2、按住“Alt+F11”打开VBA编辑器

3、在VBA编辑器中单击菜单栏“插入”——模块

4、在打开的模块中输入如下代码： Option Explicit Function 数字转英文(ByValMyNumber)Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDimPlace(9)As String Place(2)= “ Thousand ” Place(3)= “ Million ” Place(4)= “ Billion ” Place(5)= “ Trillion ” MyNumber = Trim(Str(MyNumber))DecimalPlace = InStr(MyNumber, “.”)If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1)& _

“00”, 2))MyNumber = Trim(Left(MyNumber, DecimalPlace3)Else MyNumber = “" End If Count = Count + 1 Loop Select Case Dollars Case ”“ Dollars = ”No Dollars“ Case ”One“ Dollars = ”One Dollar“ Case Else Dollars = Dollars &” Dollars“ End Select Select Case Cents Case ”“ Cents = ” and No Cents“ Case ”One“ Cents = ” and One Cent“ Case Else Cents = ” and “ & Cents & ” Cents“ End Select 数字转英文 = Dollars & Cents End Function Function GetHundreds(ByValMyNumber)Dim Result As String If Val(MyNumber)= 0 Then Exit Function MyNumber = Right(”000“ &MyNumber, 3)If Mid(MyNumber, 1, 1)<> ”0“ Then Result = GetDigit(Mid(MyNumber, 1, 1))& ” Hundred “ End If If Mid(MyNumber, 2, 1)<> ”0“ Then Result = Result &GetTens(Mid(MyNumber, 2))Else Result = Result &GetDigit(Mid(MyNumber, 3))End If GetHundreds = Result End Function Function GetTens(TensText)Dim Result As String Result = ”“ If Val(Left(TensText, 1))= 1 Then 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 Else End Select Else 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 Else End Select Result = Result &GetDigit _(Right(TensText, 1))End If GetTens = Result End Function

Function GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = ”One“ Case 2: GetDigit = ”Two“ Case 3: GetDigit = ”Three“ Case 4: GetDigit = ”Four“ Case 5: GetDigit = ”Five“ Case 6: GetDigit = ”Six“ Case 7: GetDigit = ”Seven“ Case 8: GetDigit = ”Eight“ Case 9: GetDigit = ”Nine“ Case Else: GetDigit = ”" End Select End Function

5/现在回到Excel表格中，单击“B1”单元格，在菜单栏选择“插入”——函数。6/在打开的“插入函数”对话框的“或选择类别”中选择“用户定义”，然后选择函数“数字转英文”，单击“确定”按钮。

7/在打开的“函数参数”对话框中输入“A1”，单击“确定”按钮。8/ 然后用填充手柄向下填充公式，现在就可以看到转换好的英文了。

篇2：阿拉伯数字金额转换为英文会计金额

首先鼠标右键单击需要用大写金额显示的单元格，在弹出的快捷菜单中选择“设置单元格格式”，

在弹出的对话框中选择“数字”选项卡，并且在“分类”列表中选择“特殊”，在类型框中选择“中文大写数字”，然后单击“确定”选中此类型即可。

经过设置后，Excel数字自动转换为大写金额，输入的时候就不用每次输入大写这么麻烦了!

★ 汉语拼音大小写

★ 汉语拼音字母表大小写

★ 财务会计毕业论文

★ 财务会计个人简介范文

★ 财务会计岗位职责

★ 财务会计求职信200

★ 财务会计读后感

★ 财务会计总结

★ 财务会计职责

篇3：阿拉伯数字金额转换为英文会计金额

关键词：金额转换函数,模块,Visual Basic

两个函数用Visual Basic编写，并在VS 2010中VB“W indows窗体应用程序、控制台应用程序”运行通过。

一、Dx函数、Cx函数

举例如下：

1、D x函数是按金额读法转换,将多余的零去掉。

Dx(1002.45)返回壹仟零贰元肆角伍分

Dx(101)返回壹佰零壹元整

"大写："&D x(18.6)返回大写：壹拾捌元陆角整

2、Cx函数是按金额直接转换，将零保留。

Cx(1002.45)返回壹仟零佰零拾贰元肆角伍分

Cx(101)返回壹佰零拾壹元零角零分

"大写："&Cx(18.6)返回大写：壹拾捌元陆角零分

如果金额数字整数位超过13位(最多16位)，那么要在金额数字后加字母“D”;如果金额数字是文本类型，那么要用CD ec函数。

如:Dx(12345678901234.12D)

Dx(CDec("12345678901234.12"))

二、程序代码

将下面程序代码粘贴到你开发的VB项目的模块中，项目其他地方就可以使用这两个函数。

Private_X$()={"零"，"壹"，"贰"，"叁"，"肆"，"伍"，"陆"，"柒"，"捌"，"玖"}

Private_Y$()={""，"分"，"角"，"元"，"拾"，"佰"，"仟"，"万"，"拾"，_

"佰"，"仟"，"亿"，"拾"，"佰"，"仟"，"万"，"拾"，"佰"，"仟"}

Public Function Dx(By Val C@)As String

Dim N%，L%，S%，F$，B$：If C<=0 Then Return""

F=Form at(C*100，"#")：L=Len(F)+1

S=5-Len((Str(Val(Right(F,2))/100))):Dx=""

For N=L-1 To S Step-1:B=M id(F,L-N,2)

If Left(B,1)Then D x&=_X(A sc(B)-48):D x&=_Y(N)Else_

If N M od 4=3 A nd A lso(N<>7 Or Else R ight(D x,1)<>"亿")_

Then Dx&=_Y(N)Else If Right(B,1)Then Dx&="零"

N ext:If S>1 Then D x&="整"

End Function

Public Function Cx(By Val C@)As String

Dim I%，L%，F$：If C<=0 Then Return""

F=Form at(C*100，"#")：L=Len(F)+1:Cx=""

For I=1 To L-1:Cx&=_X(V al(M id(F,I,1)))&_Y(L-I):N ext

End Function

参考文献

篇4：阿拉伯数字金额转换为英文会计金额

举个例子:

比如金额116131.37的英文大写应该怎样写呢，有什么规则吗？

SAY DOLLARS ONE HRNDRED SIXTEEN THOUSNAD ONE HUNDRED THIRTY ONE AND THIRTY SEVEN CENTS ONLY

如果是美元则SAY US DOLLARS。

SAY RMB。。

SAY HK DOLLARS

下面是英语商务合同的相关注意事项

英译商务合同貌似简单，实则不然。商务合同是一种特殊的应用文体，重在记实，用词行文的一大特点就是准确与严谨。

本文拟运用翻译教学中所积累的英译商务合同的实例，从三个方面论述如何从大处着眼、小处着手、力求准确严谨英译商务合同。

一、酌情使用公文语惯用副词

商务合同属于法律性公文，所以英译时，有些词语要用公文语词语、特别是酌情使用英语惯用的一套公文语副词，就会起到使译文结构严谨、逻辑严密、言简意赅的作用。但是从一些合同的英文译本中发现，这种公文语副同常被普通词语所代替，从而影响到译文的质量。

实际上，这种公文语惯用副同为数并不多，而已构词简单易记。常用的这类副词是由 here、there、where 等副词分别加上 after、by、in、of、on、to、under、upon、with 等副词，构成一体化形式的公文语副词。例如：

从此以后、今后：hereafter；

此后、以后：thereafter；

在其上：thereonthereupon；

在其下：thereunder；

对于这个：hereto；

对于那个：whereto；

在上文：hereinabovehereinbefore；

在下文：hereinafterhereinbelow；

在上文中、在上一部分中：thereinbefore；

在下文中、在下一部分中：thereinafter．

现用两个实例，说明在英译合同中如何酌情使用上述副词。

例 1：本合同自买方和建造方签署之日生效。

This Contract shall come into force from the date of execution hereof by the Buyer and the Builder.例 2：下述签署人同意在中国制造新产品，其品牌以此为合适。

The undersigned hereby agrees that the new products whereto this trade name is more appropriate are made in China.二、慎重处理合同的关键细目

实践证明，英译合同中容易出现差错的地方，一般来说，不是大的陈述性条款。而恰恰是一些关键的细目．比如：金钱、时间、数量等。为了避免出差错，在英译合同时，常常使用一些有限定作用的结构来界定细目所指定的确切范围。

3.1限定责任

众所周知，合同中要明确规定双方的责任。为英译出双方责任的权限与范围，常常使用连词和介词的固定结构。现把最常用的此类结构举例说明如下。

3.1.1 and/or

常用 and/or 英译合同中“甲和乙+甲或乙”的内容，这样就可避免漏译其中的一部分。

例 9：如果上述货物对船舶和（或）船上其它货物造成任何损害，托运人应负全责。

The shipper shall be liable for all damage caused by such goods to the ship and/or cargo on buard.3.1.2 by and between

常用 by and between 强调合同是由“双方”签订的，因此双方必须严格履行合同所赋于的责任。

例 10：买卖双方同意按下述条款购买出售下列商品并签订本合同。

This Contract is made by and between the Buyer and the Seller, whereby the Buyer agrees to buy and the Seller agrees to sell the undermentioned commodity subject to the terms and conditions stipulated below.3.2限定时间

英译与时间有关的文字，都应非常严格慎重地处理，因为合同对时间的要求是准确无误。所以英译起止时间时，常用以下结构来限定准确的时间。

3.2.1 双介词

用双介词英译含当天日期在内的起止时间。

例 11；自9月2O日起，甲方已无权接受任何定单或收据。

Party Ashall be unauthorized to accept any orders or to collect any account on and after September 20.例 12：我公司的条件是，3 个月内，即不得晚于5月1日，支付现金。

Our terms are cash within three months, i.e.on or before May 1.3.2.2 not(no)later than

用“not(no)later than +日期”英译“不迟于某月某日”。

例 13：本合同签字之日一个月内，即不迟于12月15日，你方须将货物装船。Party B shall ship the goods within one month of the date of signing this Contract, i.e.not later than December 15.3.2.3 include 的相应形式

常用 include 的相应形式：inclusive、including 和 included，来限定含当日在内的时间。

例 14：本证在北京议付，有效期至1月1日。

This credit expires till January 1(inclusive)for negotiation in Beijing.(or:This credit expires till and including January 1 for negotiation in Beijing.)如果不包括1月1日在内，英译为 till and not including January 1。

3.3 限定金额

为避免金额数量的差漏、伪造或涂改，英译时常用以下措施严格把关。

3.3.1.大写文字重复金额

英译金额须在小写之后，在括号内用大写文字重复该金额，即使原文合同中没有大写，英译时也有必要加上大写。在大写文字前加上“SAY”，意为“大写”；在最后加上“ONLY”。意思为“整”。必须注意：小写与大写的金额数量要一致。

例 16：聘方须每月付给受聘方美元 500 元整。

Party A shall pay Party B a monthly salary of US $ 500(SAY FIVE HUNDRED US DOLLARS ONLY).3.3.2.正确使用货币符号

英译金额必须注意区分和正确使用各种不同的货币名称符号。“$”既可代表“美元”，又可代表其他某些地方的货币；而“￡”不仅代表“英镑”，又可代表其他某些地方的货币。

篇5：阿拉伯数字金额转换为英文会计金额

拜读了《中国管理信息化》2009年第6期王光伟的文章《Excel环境下金额数字大写转换的方法探讨》 (以下简称王文) 后收获很大, 该文中列举的金额数字大写转换的几种方法在财会工作中具有很强的实用性和较高的实用价值。在实际工作中广大财会人员并非都具备丰富的计算机编程知识, 利用VBA编写金额大写转换程序或自定义函数有一定难度, 且不同财会人员对金额大写转换有不同需求, 为了适应不同需求而修改程序或自定义函数的过程比较烦琐, 为此, 本文只探讨利用公式法对金额数字实施大写转换。

二、公式法代码优化

王文中公式法的公式为=IF (TYPE (FIND (".", TEXT (E2, "[dbnum2]") , 1) ) =16, TEXT (E2, "[dbnum2]") &"元整", LEFT (TEXT (E2, "[dbnum2]") , FIND (".", TEXT (E2, "[dbnum2]") , 1) -1) &"元"&IF (LEN (MID (TEXT (E2, "[dbnum2]") , FIND (".", TEXT (E2, "[dbnum2]") , 1) +1, 2) ) =1, MID (TEXT (E2, "[dbnum2]") , FIND (".", TEXT (E2, "[dbnum2]") , 1) +1, 1) &"角整", IF (MID (TEXT (E2, "[dbnum2]") , FIND (".", TEXT (E2, "[dbnum2]") , 1) +1, 1) ="零", "零"&MID (TEXT (E2, "[dbnum2]") , FIND (".", TEXT (E2, "[dbnum2]") , 1) +2, 1) &"分", (MID (TEXT (E2, "[dbnum2]") , FIND (".", TEXT (E2, "[dbnum2]") , 1) +1, 1) &"角"& (MID (TEXT (E2, "[dbnum2]") , FIND (".", TEXT (E2, "[dbnum2]") , 1) +2, 1) &"分") ) ) ) ) (以下简称公式1) 。公式1虽然逻辑关系简单, 但代码较长, 嵌套较多, 结构复杂, 且作者未对该公式的原理进行详细解释, 因而Excel函数知识掌握有欠缺的人员在使用该公式时, 录入、理解和再加工都有一定难度。经测试, 该公式在如下方面存在改善空间:

1. 纯小数经转换后多了“零元”, 例如0.45转换后显示“零元肆角伍分”。

2. 负数加了“-”号, 例如-0.45转换后显示“-零元肆角伍分”。

3. 小数点后多于两位的小数无法四舍五入, 而是直接截取, 例如0.455转换后显示“零元肆角伍分”。

4. 不能区别空白单元格与值为0的单元格, 例如将空单元与0均转换为“零元整”。

5. 在转换的大写金额前未加货币名称。

6. 公式代码长度较长 (为544个字符) , 理解困难。

在王文启发的基础上, 根据以上问题, 可将公式简化为=SUBSTITUTE (SUBSTITUTE (IF (EXACT (E2, "") , , "人民币"&IF (-RMB (E2, 2) , TEXT (E2, ";负") &TEXT (INT (ABS (E2) +0.5%) , "[dbnum2]G/通用格式元;;") &TEXT (RIGHT (RMB (E2, 2) , 2) , "[dbnum2]0角0分;;整") , "零元整") ) , "零角", IF (E2^2<1, , "零") ) , "零分", "整") (以下简称公式2) 。公式2提供了如下功能:

1.在转换的大写金额前加货币名称, 例如0.45转换后显示“人民币肆角伍分”。

2.在转换的负数前加汉字“负”, 例如-0.45转换后显示“人民币负肆角伍分”。

3.能区别空白单元格与值为0的单元格, 例如将空单元转换后保留空单元, 0转换为“人民币零元整”。

4.对小数点后多于两位的小数进行四舍五入, 保留两位小数, 例如0.455转换后显示“人民币肆角陆分”。

5.既能转换数值型数字, 也能转换文本型数字。

6.代码更精练 (为200个字符) , 录入、理解和再加工更方便。

代码优化前后对比见图1。

三、公式法原理解析

公式1原理解析见图2。由图2可见, 公式1的特点是逻辑关系简单, 结构清晰, 但其代码实现方法复杂, 转换过程中代码重复较多。

公式2原理解析及函数说明见图3。公式2的思路是:第一步, 利用函数EXACT () 判断待转换单元格是否为空, 当单元格为空时结束转换, 否则进入第二步。第二步, 利用RMB () 函数对待转换数据进行四舍五入保留两位小数, 当四舍五入保留两位小数后的值为0时, 返回字符串“零元整”, 否则进入第三步。第三步, 利用TEXT () 函数判断四舍五入保留两位小数后的值是否为负, 当是负数时, 返回字符串“负”, 否则返回空值 (这里TEXT (A1, “;负”) 不仅能判断是否为负, 还具备转换字符型数据的功能, 如果用IF (A7>0, “负”) 判断是否为负, 则不具备此功能) 。第四步, 取四舍五入保留两位小数后的整数部分, 整数部分为0则返回空值, 否则利用TEXT () 函数转换为“X元”形式。第五步, 取四舍五入保留两位小数后的小数部分, 小数部分为0则返回字符串“整”, 否则利用TEXT () 函数转换为“X角X分”形式。第六步, 利用&将第三至第五步的返回值连接为“X元X角X分形式”或“负X元X角X分”形式。第七步, 利用&在第二步及第六步结果前加货币名称“人民币”。第八步, 当待转换数据为纯小数时, 利用函数SUBSTITUTE () 将第七步结果中含有“零角”的内容替换为空值, 否则替换为“零”。第九步, 利用函数SUBSTITUTE () 将第八步结果中含有“零分”的内容替换为“整”, 最终完成整体转换。

由图3可见, 公式2的特点是逻辑关系虽比公式1复杂, 结构层次较多, 但具备功能较多且代码实现过程简单, 公式条理清晰, 各功能相对独立, 易于对公式具备的功能进行取舍、增删, 以适应不同需求。例如, 当不需要在转换数据前加货币名称时, 只需删除公式中的代码“"人民币"&”即可;当不涉及空单元格时, 只需删除公式中函数IF ( (EXACT (E2, "") , , ) 即可。

四、结束语

公式法代码的优化是在王文的启发下, 利用Excel函数组合构建而成, 经优化后得到的公式也许并非最优结果, 旨在提供一种利用Excel解决问题的思路。以优化后的公式为主进行的原理解析, 目的是使不熟悉Excel的人员能在理解公式的基础上应用公式法, 同时也为相关人员对公式法进行加工、改造及拓展该公式的应用领域提供了参考。

摘要：利用公式法对Excel环境下金额数字进行大写转换是非常实用的方法, 通过对公式代码进行优化, 不仅增加了公式的功能, 还可以简化录入、增强公式的可理解性、方便公式再加工, 通过对公式法进行原理解析, 可以方便初学者使用和理解公式, 也有利于对公式的改造和应用领域的拓展。

关键词：Excel,大写转换,公式,代码优化,原理解析

参考文献

[1]王光伟.Excel环境下金额数字大写转换的方法探讨[J].中国管理信息化, 2009 (6) .