第一篇：阿拉伯數字金額轉換為英文會計金額

怎樣用自定義函數將阿拉伯數字金額轉換為英文會計金額，如：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家非金融企業和證券會計師事務所的檢查結果進行公告。

檢查結果表明：大部分企業會計信息質量逐年提高。多數證券資格會計師事務所風險意識增強，審計執業質量提升。但檢查也發現，仍有部分企業未有效執行會計準則、財務管理不規范、信息披露不充分、偷漏稅款、侵占國有資產等違規問題。

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

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