Ｗｏｒｄ環(huán)境中雙倍余額遞減法折舊的自動計算

［摘 要］ 利用Word的宏作為工具，通過編制程序，實現(xiàn)雙倍余額遞減法折舊額的自動計算，并將計算結(jié)果顯示在Word環(huán)境的表格中。

［關(guān)鍵詞］ Word環(huán)境；雙倍余額遞減法；折舊

［中圖分類號］F275；F270.7［文獻(xiàn)標(biāo)識碼］A［文章編號］1673-0194（2007）04-0046-03

利用Excel電子表格處理軟件來計算雙倍余額遞減法下的折舊，不少學(xué)者進(jìn)行了很多探索，但這些方法一般以一個固定的值作為計算的模式，缺乏普遍性。針對這一問題，本文應(yīng)用Word中VBA編程以宏命令的方式自動進(jìn)行折舊計算，可以讓用戶進(jìn)行初始數(shù)據(jù)的輸入，然后自動輸出各年度的計算結(jié)果。

一、雙倍余額遞減法的特點與折舊計算

雙倍余額遞減法是在不考慮固定資產(chǎn)凈殘值的情況下，根據(jù)每期期初固定資產(chǎn)賬面余額和雙倍的直線法折舊率計算折舊的一種方法。其特點是：（1）折舊基數(shù)是固定資產(chǎn)凈值而不是原值。（2）折舊率按同等條件下直線法（假定凈殘值為零）折舊率的雙倍計算。（3）由于沒有考慮固定資產(chǎn)凈殘值，為避免提不完折舊，到一定年限后需改用直線法。根據(jù)現(xiàn)行會計制度規(guī)定，在達(dá)到固定資產(chǎn)使用年限的前兩年內(nèi)改為直線法。

設(shè)固定資產(chǎn)的原始價值為A，預(yù)計凈殘值率為r，折舊年限為n，采用現(xiàn)行雙倍余額遞減法計提的折舊額，見表1。

二、應(yīng)用宏實現(xiàn)折舊自動計算

宏是一系列組合在一起的 Word 命令和指令，它們形成一個命令，以實現(xiàn)任務(wù)執(zhí)行的自動化。雙倍余額遞減法首先讓用戶輸入A，r和n三個值，計算后的結(jié)果形式如表1，第一行為3個字段，以下各行為各字段的值，以下詳細(xì)介紹應(yīng)用程序?qū)崿F(xiàn)的方法。

１． 接受用戶輸入的數(shù)據(jù)，代碼如下：

A = Val(InputBox(“輸入A的值”，“計算折舊表”))

r = Val(InputBox(“輸入預(yù)計凈殘值率為r”，“計算折舊表”))

n = Val(InputBox(“輸入折舊年限n”，“計算折舊表”))

If n < 2 Then ‘如果年數(shù)小于1則不輸出表

Exit Sub

End If

2. 輸出用戶輸入的3個值，以使用戶可以查看已輸入的值，同時增加表的實用性#65377;

ss = “A=” Trim(Str(A)) “;r=” Trim(Str(r))“;n=” Trim(Str(n))

Selection.TypeText Text:=ss‘輸出A#65380;r和n#65377;

Selection.TypeParagraph

3. 下兩語句輸出一個n+1行3列的表#65377;

ActiveDocument.Tables.Add Range:=Selection.Range， NumRows:=n + 1， NumColumns:= _

3， DefaultTableBehavior:=wdWord9TableBehavior， AutoFitBehavior:= _ wdAutoFitFixed

With Selection.Tables(1)

.Columns.PreferredWidth = CentimetersToPoints(5)

.AutoFormat Format:=wdTableFormatSimple1， ApplyBorders:=True， _

ApplyShading:=True， ApplyFont:=True， ApplyColor:=True， _

ApplyHeadingRows:=True， ApplyLastRow:=False， ApplyFirstColumn:=True， _ ApplyLastColumn:=False， AutoFit:=True

End With

4. 表格中第一行中輸入字段名

Selection.TypeText Text:=“年”

Selection.MoveRight Unit:=wdCharacter， Count:=1

Selection.TypeText Text:=“折舊計算”

Selection.MoveRight Unit:=wdCharacter， Count:=1

Selection.TypeText Text:=“賬面價值”

5. 第2行到n-1行輸出第1年到n-2年的折算值#65377;由于第一年到到n-2年之間具有一定的規(guī)律性，這里用一個循環(huán)語句來實現(xiàn)，具體代碼如下:

For ii = 1 To n - 2

Selection.MoveDown Unit:=wdLine， Count:=1

Selection.MoveLeft Unit:=wdCharacter， Count:=2

Selection.TypeText Text:=Trim(Str(ii))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p1 = A * (1 - 2 / n) ^ (ii - 1) * 2 / n

p1 = Int(p1 * 100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p1))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p2 = A * (1 - 2 / n) ^ ii

p2 = Int(p2 * 100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p2))

Next ii

6. 雙倍余額遞減法中，最后兩年在計算上與前n-2年存在差異，因此提出來獨立計算#65377;

Selection.MoveDown Unit:=wdLine， Count:=1

Selection.MoveLeft Unit:=wdCharacter， Count:=2

Selection.TypeText Text:=Trim(Str(n - 1))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p1 = (A*(1 - 2 / n) ^ (n - 2) - A*r) / 2

p1 = Int(p1*100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p1))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p2 = (A*(1 - 2 / n) ^ (n - 2) + A*r) / 2

p2 = Int(p2 *100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p1))

Selection.MoveDown Unit:=wdLine， Count:=1

Selection.MoveLeft Unit:=wdCharacter， Count:=2

Selection.TypeText Text:=Trim(Str(n))

Selection.MoveRight Unit:=wdCharacter， Count:=1

Selection.TypeText Text:=Trim(Str(p1))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p2 = Int(A*r*100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p2))

三、應(yīng)用舉例

在Word中可以把宏生成一個工具欄菜單項，點擊該菜單項就可以運行該宏。具體方法如下：“工具”→“自定義” →“命令”→在類別中點擊“宏”→在“命令”欄中選擇宏“”并按住鼠標(biāo)左鍵拖動到工具欄中，并點擊右鍵，在彈出式菜單的“命名”欄中更改相應(yīng)的名字。如把它命名為“雙余計算”。

［例］ 某設(shè)備原價為50 000元，使用年限為5年，預(yù)計凈殘值為2 000元。用雙倍余額遞減法計算各年折舊額。

點擊工具欄中“雙倍余額遞減法折舊計算表”工具菜單，分別在輸入對話框中輸入A=50 000，ｎ＝５，ｒ＝2 000/

50 000 = 4% = 0.04。按回車鍵便可得到下述折舊計算表：

A=50 000； r=0.04； n=8

四、結(jié) 語

通過Word的宏可以很方便地計算出雙倍余額遞減法各年的折舊額，并在Word中列出計算后的表格，通過上述計算過程不難得出，雙倍余額遞減法各年折舊額成等比關(guān)系（最后兩年除外），運用上述計算公式及程序計算某年折舊額既快速簡捷，又能保證計算結(jié)果的準(zhǔn)確性。

主要參考文獻(xiàn)

[1] 全國會計專業(yè)技術(shù)資格考試領(lǐng)導(dǎo)小組辦公室.中級會計實務(wù)(一)[M]. 北京:中國財政經(jīng)濟(jì)出版社，2001.

[2] [美]Matthew Harris. Visual Basic for Applications——VBA自學(xué)教程[M]. 任曉峰等譯. 北京:電子工業(yè)出版社，1995.