第一篇：阿拉伯數(shù)字金額轉(zhuǎn)換為英文會計金額

怎樣用自定義函數(shù)將阿拉伯數(shù)字金額轉(zhuǎn)換為英文會計金額，如：123.45 變?yōu)椋篛ne 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 ”O(jiān)ne“ 32.Dollars = ”O(jiān)ne Dollar“ 33.Case Else 34.Dollars = Dollars & ” Dollars“ 35.End Select 36.Select Case Cents 37.Case ”“ 38.Cents = ” and No Cents“ 39.Case ”O(jiān)ne“ 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 = ”O(jiān)ne“ 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單元格輸入需要的數(shù)值，在其他單元格輸入=SpellNumber(A1)即可

第二篇：EXCEL表格中將數(shù)字金額轉(zhuǎn)換為英文

Excel表格中如何將數(shù)字金額轉(zhuǎn)換為英文

（如B1列寫162890元，自動轉(zhuǎn)換為英文

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

1、新建Excel表格

2、按住“Alt+F11”打開VBA編輯器

3、在VBA編輯器中單擊菜單欄“插入”——模塊

4、在打開的模塊中輸入如下代碼： Option Explicit Function 數(shù)字轉(zhuǎn)英文(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 ”O(jiān)ne“ Dollars = ”O(jiān)ne Dollar“ Case Else Dollars = Dollars &” Dollars“ End Select Select Case Cents Case ”“ Cents = ” and No Cents“ Case ”O(jiān)ne“ Cents = ” and One Cent“ Case Else Cents = ” and “ & Cents & ” Cents“ End Select 數(shù)字轉(zhuǎn)英文 = 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 = ”O(jiān)ne“ 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/現(xiàn)在回到Excel表格中，單擊“B1”單元格，在菜單欄選擇“插入”——函數(shù)。6/在打開的“插入函數(shù)”對話框的“或選擇類別”中選擇“用戶定義”，然后選擇函數(shù)“數(shù)字轉(zhuǎn)英文”，單擊“確定”按鈕。

7/在打開的“函數(shù)參數(shù)”對話框中輸入“A1”，單擊“確定”按鈕。8/ 然后用填充手柄向下填充公式，現(xiàn)在就可以看到轉(zhuǎn)換好的英文了。

第三篇：如何認定盜竊金額 - 副本

被告人供述和被害人陳述不一致時如何認定盜竊金額？發(fā)布日期：2011-09-07文章來源：互聯(lián)網(wǎng) [案情]

被告人曾某、李某分別于2009年2月23日、3月11日、3月27日、3月28日在上栗縣新世界澡堂盜竊他人財物。2009年3月29日被抓后，被告人曾某、李某均供述2009年2月23日上栗縣新世界澡堂只偷的現(xiàn)金1500元，而被害人郭某于當日報案卻稱被偷了3700元。

[分歧]

對于被告人曾某、李某2009年2月23日到底偷了被害人郭某多少錢，有兩種意見：

第一種意見認為，兩被告人均一致供述盜竊金額為1500元，其證明效力大于被害人一人的陳述，本著有利于被告人的原則，以采信兩被告人的一致供述，認定為2009年2月23日的盜竊金額為1500元。

第二種意見認為，被害人于失竊的當天即向公安機關(guān)報案并陳述失竊3700元，其證明效力大于被告人后來被抓時的供述，盜竊金額應以被害人陳述的3700元為準。

[管析]

筆者同意第二種意見。

由于盜竊行為是秘密進行，如何認定盜竊現(xiàn)金的數(shù)額，一直是困擾司法實踐的一個難題。實際上，對于被告人偷了多少錢，只有被告人、被害人最清楚。被告人、被害人對于盜竊數(shù)額的陳述有時一致，有時卻不一致。筆者認為，盜竊罪以數(shù)額的多少決定刑罰的輕重。對于被告人而言，供述的數(shù)額少，量刑則輕。被告人與生俱來趨利避害的心態(tài)，自然不愿承認多偷了錢；并且被告人往往多次盜竊，等公安機關(guān)抓到后，往往一月甚至數(shù)月、數(shù)年以后的事，對于當時具體盜竊多少現(xiàn)金，他們也不一定有準確的記憶。相反，被害人失竊后當日就向公安機關(guān)報案，并陳述失竊的數(shù)額，記憶應該是清楚的；雖然也有夸大其辭的可能性，但不知具體是誰偷的，夸大的可能性比被告人虛假供述的可能要小。因此，被害人陳述的證明力應大于被告人的供述，應采信被害人的陳述。

本案中，被害人失竊后當日即報案，明確陳述其失竊3700元，而被告人供述的盜竊金額1500元是在案發(fā)后一個多月，且被告人曾某、李某在此地多次盜竊，從常人記憶的能力看，被告人曾某、李某也不一定準確記得當日確實的盜竊數(shù)額，因此，本案應采信被害人陳述的失竊金額3700元，作為定罪數(shù)額。

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

第四篇：大小寫金額的會計標準寫法

大小寫金額的會計標準寫法

（1）小寫金額的標準寫法。

①在沒有數(shù)位分隔線的憑證、賬表上的標準寫法。

a.元以上每三位用分位“，”隔開，元與角位之間點一小數(shù)點，如2,781.24元。

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

c.角分位如沒有金額，仍在元位后點小數(shù)點，并在小數(shù)點后寫“00”或在字體度中間劃一短橫線，如32.00或32.—。

d.如在一位金額欄內(nèi)書寫兩行以上金額，從第二行起，應逐位對準上一行數(shù)字書寫。

②在有數(shù)位分隔線的憑證、賬簿上的標準寫法。

a.小寫金額要對準元、角、分位置書寫。

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

c.有角無分的，在分位上寫“0”字；角分位沒月金額的，在角和分位上均寫一個“0”字，不得以符號“—”代替。

d.合計的小寫金額前應加注幣值符號，如“￥”、“HK＄”、“US＄”等。幣值符號與阿拉伯金額數(shù)字之間不得留有空。

（2）大寫金額的標準寫法。

①大寫金額要靠“人民幣”后書寫（須空出半個漢字大寫數(shù)字的位置）

②元位是0或金額中間連續(xù)有幾個0，但角位不是0，大寫金額均不寫“零”字，如10.42元，應寫成“壹拾元肆角貳分”，又如，5000.74元應寫成“伍仟元柒角肆分”。

③金額中間有0或連續(xù)有幾個0，但元位不是0的，大寫金額均寫一個“零”字，如107,006.08元，應寫成“壹拾萬柒仟零陸元零捌分”。

④大寫金額有分的，后面不加“整”字，其余一律末尾加“整”字；大寫金額前還應加注幣值單位，注明“人民幣”、“美元”、“港幣”等字樣，且?guī)胖祮挝慌c金額數(shù)字之間以及各金額數(shù)字之間不得留有空隙。

第五篇：去年會計檢查違規(guī)金額高達552億.doc

去年會計檢查違規(guī)金額高達552.29億

蘇州會計培訓捷梯教育近日收到財政部的有關(guān)信息，財政部近日公示去年會計檢查:違規(guī)問題金額552.29億，并對有關(guān)責任單位和責任人進行了有關(guān)處罰。蘇州會計培訓希望我們蘇州會計培訓班的學員能在以后的工作崗位上引以為戒，嚴格按照國家的法律法規(guī)進行我們的會計工作。

國家財政部網(wǎng)站2012年12月28日連發(fā)三個公告，向社會公開了去年全國開展的會計信息質(zhì)量檢查結(jié)果，并對檢查發(fā)現(xiàn)有問題的企業(yè)進行逐戶公告，以加大公眾的監(jiān)督力度。此次發(fā)布的財政部會計信息質(zhì)量檢查第二十三號、第二十四號公告分別對28家金融類企業(yè)和144家非金融企業(yè)和證券會計師事務(wù)所的檢查結(jié)果進行公告。

檢查結(jié)果表明：大部分企業(yè)會計信息質(zhì)量逐年提高。多數(shù)證券資格會計師事務(wù)所風險意識增強，審計執(zhí)業(yè)質(zhì)量提升。但檢查也發(fā)現(xiàn)，仍有部分企業(yè)未有效執(zhí)行會計準則、財務(wù)管理不規(guī)范、信息披露不充分、偷漏稅款、侵占國有資產(chǎn)等違規(guī)問題。

針對檢查發(fā)現(xiàn)的問題，財政部門依法進行了處理處罰，責成被查單位調(diào)整賬務(wù)、補繳稅款、完善制度、加強管理，并追究相關(guān)人員責任。

蘇州會計培訓希望大家在學好會計知識的同時，也能夠在法律法規(guī)方面進行研究，這樣子我們以后走向工作崗位才不會犯錯誤，嚴格按照國家的法律法規(guī)進行會計工作的進行。蘇州會計培訓希望蘇州會計培訓班的學員能有所成就。