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

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

怎样用自定义函数将阿拉伯数字金额转换为英文会计金额，如：123.45 变为：One Hundred Twenty Three Dollars and Forty Five Cents

A：按Alt+F11，插入→模块→在VBE窗口中输入以下代码：

1.Function SpellNumber(ByValMyNumber)2.Dim Dollars, Cents, Temp 3.Dim DecimalPlace, Count 4.ReDim Place(9)As String 5.Application.Volatile True 6.Place(2)= “ Thousand ” 7.Place(3)= “ Million ” 8.Place(4)= “ Billion ” 9.Place(5)= “ Trillion ” ' String representation of amount 10.MyNumber = Trim(Str(MyNumber))' Position of decimal place 0 if none 11.DecimalPlace = InStr(MyNumber, “.”)12.'Convert cents and set MyNumber to dollar amount 13.If DecimalPlace> 0 Then 14.Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1)& “00”, 2))15.MyNumber = Trim(Left(MyNumber, DecimalPlace3)23.Else 24.MyNumber = “" 25.End If 26.Count = Count + 1 27.Loop 28.Select Case Dollars 29.Case ”“ 30.Dollars = ”No Dollars“ 31.Case ”One“ 32.Dollars = ”One Dollar“ 33.Case Else 34.Dollars = Dollars & ” Dollars“ 35.End Select 36.Select Case Cents 37.Case ”“ 38.Cents = ” and No Cents“ 39.Case ”One“ 40.Cents = ” and One Cent“ 41.Case Else 42.Cents = ” and “ & Cents & ” Cents“ 43.End Select 44.SpellNumber = Dollars & Cents 45.End Function 46.'******************************************* 47.' Converts a number from 100-999 into text * 48.'******************************************* 49.Function GetHundreds(ByValMyNumber)50.Dim Result As String 51.If Val(MyNumber)= 0 Then Exit Function 52.MyNumber = Right(”000“ &MyNumber, 3)'Convert the hundreds place 53.If Mid(MyNumber, 1, 1)<> ”0“ Then 54.Result = GetDigit(Mid(MyNumber, 1, 1))& ” Hundred “ 55.End If 56.'Convert the tens and ones place 57.If Mid(MyNumber, 2, 1)<> ”0“ Then 58.Result = Result &GetTens(Mid(MyNumber, 2))59.Else 60.Result = Result &GetDigit(Mid(MyNumber, 3))61.End If 62.GetHundreds = Result 63.End Function 64.'********************************************* 65.' Converts a number from 10 to 99 into text.* 66.'********************************************* 67.Function GetTens(TensText)68.Dim Result As String 69.Result = ”“ 'null out the temporary function value 70.If Val(Left(TensText, 1))= 1 Then ' If value between 10-19 71.Select Case Val(TensText)72.Case 10: Result = ”Ten“ 73.Case 11: Result = ”Eleven“ 74.Case 12: Result = ”Twelve“ 75.Case 13: Result = ”Thirteen“ 76.Case 14: Result = ”Fourteen“ 77.Case 15: Result = ”Fifteen“ 78.Case 16: Result = ”Sixteen“ 79.Case 17: Result = ”Seventeen“ 80.Case 18: Result = ”Eighteen“ 81.Case 19: Result = ”Nineteen“ 82.Case Else 83.End Select 84.Else ' If value between 20-99 85.Select Case Val(Left(TensText, 1))86.Case 2: Result = ”Twenty “ 87.Case 3: Result = ”Thirty “ 88.Case 4: Result = ”Forty “ 89.Case 5: Result = ”Fifty “ 90.Case 6: Result = ”Sixty “ 91.Case 7: Result = ”Seventy “ 92.Case 8: Result = ”Eighty “ 93.Case 9: Result = ”Ninety “ 94.Case Else 95.End Select 96.Result = Result &GetDigit _ 97.(Right(TensText, 1))'Retrieve ones place 98.End If 99.GetTens = Result 100.End Function 101.'******************************************* 102.' Converts a number from 1 to 9 into text.* 103.'******************************************* 104.Function GetDigit(Digit)105.Select Case Val(Digit)106.Case 1: GetDigit = ”One“ 107.Case 2: GetDigit = ”Two“ 108.Case 3: GetDigit = ”Three“ 109.Case 4: GetDigit = ”Four“ 110.Case 5: GetDigit = ”Five“ 111.Case 6: GetDigit = ”Six“ 112.Case 7: GetDigit = ”Seven“ 113.Case 8: GetDigit = ”Eight“ 114.Case 9: GetDigit = ”Nine“ 115.Case Else: GetDigit = ”" 116.End Select 117.End Function 复制代码

然后在A1单元格输入需要的数值，在其他单元格输入=SpellNumber(A1)即可

第二篇：EXCEL表格中将数字金额转换为英文

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/ 然后用填充手柄向下填充公式，现在就可以看到转换好的英文了。

第三篇：如何认定盗窃金额 - 副本

被告人供述和被害人陈述不一致时如何认定盗窃金额？发布日期：2011-09-07文章来源：互联网 [案情]

被告人曾某、李某分别于2009年2月23日、3月11日、3月27日、3月28日在上栗县新世界澡堂盗窃他人财物。2009年3月29日被抓后，被告人曾某、李某均供述2009年2月23日上栗县新世界澡堂只偷的现金1500元，而被害人郭某于当日报案却称被偷了3700元。

[分歧]

对于被告人曾某、李某2009年2月23日到底偷了被害人郭某多少钱，有两种意见：

第一种意见认为，两被告人均一致供述盗窃金额为1500元，其证明效力大于被害人一人的陈述，本着有利于被告人的原则，以采信两被告人的一致供述，认定为2009年2月23日的盗窃金额为1500元。

第二种意见认为，被害人于失窃的当天即向公安机关报案并陈述失窃3700元，其证明效力大于被告人后来被抓时的供述，盗窃金额应以被害人陈述的3700元为准。

[管析]

笔者同意第二种意见。

由于盗窃行为是秘密进行，如何认定盗窃现金的数额，一直是困扰司法实践的一个难题。实际上，对于被告人偷了多少钱，只有被告人、被害人最清楚。被告人、被害人对于盗窃数额的陈述有时一致，有时却不一致。笔者认为，盗窃罪以数额的多少决定刑罚的轻重。对于被告人而言，供述的数额少，量刑则轻。被告人与生俱来趋利避害的心态，自然不愿承认多偷了钱；并且被告人往往多次盗窃，等公安机关抓到后，往往一月甚至数月、数年以后的事，对于当时具体盗窃多少现金，他们也不一定有准确的记忆。相反，被害人失窃后当日就向公安机关报案，并陈述失窃的数额，记忆应该是清楚的；虽然也有夸大其辞的可能性，但不知具体是谁偷的，夸大的可能性比被告人虚假供述的可能要小。因此，被害人陈述的证明力应大于被告人的供述，应采信被害人的陈述。

本案中，被害人失窃后当日即报案，明确陈述其失窃3700元，而被告人供述的盗窃金额1500元是在案发后一个多月，且被告人曾某、李某在此地多次盗窃，从常人记忆的能力看，被告人曾某、李某也不一定准确记得当日确实的盗窃数额，因此，本案应采信被害人陈述的失窃金额3700元，作为定罪数额。

作者：上栗县人民法院 殷大翅

第四篇：大小写金额的会计标准写法

大小写金额的会计标准写法

（1）小写金额的标准写法。

①在没有数位分隔线的凭证、账表上的标准写法。

a.元以上每三位用分位“，”隔开，元与角位之间点一小数点，如2,781.24元。

b.有角无分的，在分位上写“0”字，如“3.20”，不得写成“3.2”或“3.2—”。

c.角分位如没有金额，仍在元位后点小数点，并在小数点后写“00”或在字体度中间划一短横线，如32.00或32.—。

d.如在一位金额栏内书写两行以上金额，从第二行起，应逐位对准上一行数字书写。

②在有数位分隔线的凭证、账簿上的标准写法。

a.小写金额要对准元、角、分位置书写。

b.只有角分位金额的，在元位上不写“0”字；只有分位金额的，在元和角位上均不写“0”字。

c.有角无分的，在分位上写“0”字；角分位没月金额的，在角和分位上均写一个“0”字，不得以符号“—”代替。

d.合计的小写金额前应加注币值符号，如“￥”、“HK＄”、“US＄”等。币值符号与阿拉伯金额数字之间不得留有空。

（2）大写金额的标准写法。

①大写金额要靠“人民币”后书写（须空出半个汉字大写数字的位置）

②元位是0或金额中间连续有几个0，但角位不是0，大写金额均不写“零”字，如10.42元，应写成“壹拾元肆角贰分”，又如，5000.74元应写成“伍仟元柒角肆分”。

③金额中间有0或连续有几个0，但元位不是0的，大写金额均写一个“零”字，如107,006.08元，应写成“壹拾万柒仟零陆元零捌分”。

④大写金额有分的，后面不加“整”字，其余一律末尾加“整”字；大写金额前还应加注币值单位，注明“人民币”、“美元”、“港币”等字样，且币值单位与金额数字之间以及各金额数字之间不得留有空隙。

第五篇：去年会计检查违规金额高达552亿.doc

去年会计检查违规金额高达552.29亿

苏州会计培训捷梯教育近日收到财政部的有关信息，财政部近日公示去年会计检查:违规问题金额552.29亿，并对有关责任单位和责任人进行了有关处罚。苏州会计培训希望我们苏州会计培训班的学员能在以后的工作岗位上引以为戒，严格按照国家的法律法规进行我们的会计工作。

国家财政部网站2012年12月28日连发三个公告，向社会公开了去年全国开展的会计信息质量检查结果，并对检查发现有问题的企业进行逐户公告，以加大公众的监督力度。此次发布的财政部会计信息质量检查第二十三号、第二十四号公告分别对28家金融类企业和144家非金融企业和证券会计师事务所的检查结果进行公告。

检查结果表明：大部分企业会计信息质量逐年提高。多数证券资格会计师事务所风险意识增强，审计执业质量提升。但检查也发现，仍有部分企业未有效执行会计准则、财务管理不规范、信息披露不充分、偷漏税款、侵占国有资产等违规问题。

针对检查发现的问题，财政部门依法进行了处理处罚，责成被查单位调整账务、补缴税款、完善制度、加强管理，并追究相关人员责任。

苏州会计培训希望大家在学好会计知识的同时，也能够在法律法规方面进行研究，这样子我们以后走向工作岗位才不会犯错误，严格按照国家的法律法规进行会计工作的进行。苏州会计培训希望苏州会计培训班的学员能有所成就。