基于ＶＦＰ實現融資租賃項目管理

[摘 要] 本文在VFP語言環境中采用面向對象的編程方法，編寫相應的表單程序，實現對融資租賃項目進行管理#65380;核算，并自動生成相應的會計分錄#65377;

[關鍵詞] 融資租賃;面向對象;VFP

[中圖分類號]F232;F275[文獻標識碼]A[文章編號]1673-0194(2007)10-0050-04

隨著我國經濟的發展，融資租賃業務的運用日益廣泛，企業采用融資租賃進行融資的業務也日益增多，融資租賃中未確認融資費用的分攤相對煩瑣，已成為困擾廣大財務人員的普遍問題#65377;而目前會計軟件中卻沒有很好的解決方案，雖然可用Excel建立模型進行求解，但模型相對復雜，而且通用性一般不強#65377;因此，筆者試圖在VFP環境中，用面向對象的方法，設計相應的表單及數據表，對租賃業務項目進行管理，從而實現能自動對固定資產入賬金額#65380;未確定融資費用進行核算#65380;分攤，并自動生成各個期間的分錄，從而大大減輕財務人員的工作#65377;

一#65380;手工方式下融資租賃的賬務處理

例1:設飛馳公司從某租賃公司融資租入固定資產，該固定資產面值為800 000元#65377;飛馳公司分5 期，于期末向該租賃公司每期支付租金200 000 元#65377;租賃期滿，飛馳公司享有該設備的優惠購買選擇權，價格為500元#65377;租賃合同規定貼現率為6%#65377;

1. 租賃日的會計處理

《租賃會計準則》規定:租賃開始日，承租人通常應以租賃開始日租賃資產原賬面價值與最低租賃付款額的現值兩者較低者入賬#65377;

(1)最低租賃付款額#65377;是指在租期內，承租人應支付或可能被要求支付的各項款項之和#65377;最低租賃付款額=各期租金之和+期末購買價格=200 000*5+500=1 000 500(元)#65377;

(2)最低租賃付款額現值#65377;即在租期內，承租人在各期應支付或可能被要求支付的各項款項，根據某一利率折算為現值#65377;最低租賃付款額的現值=200 000*(P/A，6%，5)+500*(P/F，6%，5)=842 846.3862(元)#65377;

(3)資產入賬價值#65377;由以上計算結果資產面值800 000元比最低租賃付款額現值842 846.3862元低，根據《租賃會計準則》，資產入賬價值=800 000(元)#65377;

(4)未確定融資租賃費用為最低租賃付款額與資產入賬價值之間的差額#65377;未確定融資租賃費用=1 000 500-

800 000=200 500(元)#65377;

分錄處理:

借:固定資產——融資租入固定資產800 000

借:未確認融資費用 200 500

貸:長期應付款——應付融資租賃款 1 000 500

2. 各期付款及未確認融資費用分攤賬務處理

(1)計算未確認融資費用分攤率，既根據將各期應付款額根據某一利率折算為現值應等于資產入賬價值#65377;租賃資產入賬價值=200 000*(P/A，R，5)+500*(P/F，R，5)=

800 000#65377;用插值法計算R=7.9470%#65377;

(2)未確認融資費用的分攤#65377;在計算出分攤率以后，采用實際利率法將每期還款金額計算分為歸還本金和利息兩部分，而利息部分金額即為未確認融資費用#65377;分攤方法如表1所示#65377;

(3)每期支付租金時，作如下會計分錄(以第1期為例):

借:長期應付款——應付融資租賃款 200 000

貸:銀行存款200 000

借:財務費用 63 576

貸:未確認融資費用63 576

二#65380;基于VFP實現融資租賃項目管理設計

1. 融資租賃項目管理實現的功能分析

(1)能對多個融資租賃項目進行管理，由于企業可能有多個融資項目，為了方便管理，考慮可對不同的項目進行編號#65377;在增加融資租賃項目時要求輸入項目編號，然后自動在ZL . DBF表中檢索，如果輸入的項目號為空或已存在，則要求重新輸入#65377;

(2)能進行租賃日的會計處理#65377;輸入融資租賃項目及相應基本信息后，選擇先付或后付，能自動算出最低租賃付款額#65380;最低租賃付款額現值#65380;資產入賬價值#65380;未確定融資租賃費用總額#65380;分攤率#65380;各期未確定融資租賃費用的分攤金額，并自動生成相應的分錄#65377;

(3)在不同的期間可通過輸入某一融資租賃項目編號和期間數，自動生成相應的分錄#65377;

2. 融資租項目管理系統的實現

(1)數據表設計#65377;需要設計相應的數據表，可以存儲相應的融資租賃項目編號#65380;名稱#65380;期間#65380;每期確認融資費用等相關信息#65377;但對于最低租賃付款額#65380;最低租賃付款額現值#65380;資產入賬價值#65380;未確定融資租賃費用總額#65380;分攤率等數據只需在期初確定，因此可以不存放在表中#65377;數據字典如表2#65377;

(2)表單設計#65377;設計租賃日的會計處理表單，用于接收相應的項目信息，并能計算出相應的各項數據，自動生成會計分錄，如圖1所示#65377;該表單輸入基本信息后，單擊“確定”命令按鈕，自動計算顯示出最低租賃付款額#65380;最低租賃付款額現值#65380;資產入賬價值#65380;未確定融資租賃費用總額#65380;分攤率等數據，同時計算出各期未確定融資費用，保存到相應的表中#65377;

該表單的難點在于:(1)計算出分攤率;(2)考慮先付租金和后付租金;(3)根據分攤率計算出各期“確認的融資租賃費用”，并寫入相應的表中#65377;難點均在“確定”命令按鈕中解決#65377;

“確認”命令按鈕的CLICK EVENT代碼如下:

ZLXMBM=THIS.PARENT.TEXT6.VALUE

IF USED(“ZL”)

SELEZL

set order to xmbh

ELSE

USE ZL ORDER XMBH

ENDIF

IF SEEK(ZLXMBM) OR SPACE(0)==ALLTRIM(ZLXMBM)

MESSAGEBOX(“該項目編碼已存在或為空，請重輸”)

THIS.PARENT.TEXT6.SETFOCUS()

ELSE

MQZJ=THIS.PARENT.SPINNER1.VALUE

ZLQS=THIS.PARENT.SPINNER2.VALUE

TXL=THIS.PARENT.SPINNER3.VALUE/100

GDZCMZ=THIS.PARENT.SPINNER4.VALUE

GMJG=THIS.PARENT.SPINNER5.VALUE

FKFS=THIS.PARENT.OPTIONGROUP1.VALUE

zlxmmc=this.parent.text7.value

ZDZLFKE=0

ZDZLFXZ=0

GDZCRZZ=0

WQDRZFY=0

FTL=0

ZDZLFKE=ZLQS*MQZJ+GMJG

FOR i=1 TO ZLQS

ZDZLFXZ=ZDZLFXZ+MQZJ/(1+TXL)^i

ENDFOR

ZDZLFXZ=ZDZLFXZ+GMJG/(1+TXL)^ZLQS

IF ZDZLFXZ>GDZCMZ

GDZCRZZ=GDZCMZ

ELSE

GDZCRZZ=ZDZLFXZ

ENDIF

WQDRZFY=ZDZLFKE-GDZCRZZ

FOR j=0 TO 100000000

k=j /1000000

M=0

FOR i=1 TO ZLQS

M=M+MQZJ/(1+K)^i

ENDFOR

M=M+GMJG/(1+k)^ZLQS

IF M-GDZCRZZ<=0.00000001

EXIT

ENDIF

ENDFOR

FTL=K

THIS.PARENT.TEXT1.VALUE=ZDZLFKE

THIS.PARENT.TEXT2.VALUE=ZDZLFXZ

THIS.PARENT.TEXT3.VALUE=GDZCRZZ

THIS.PARENT.TEXT4.VALUE=WQDRZFY

THIS.PARENT.TEXT5.VALUE=FTL*100

QRRZFY1=0

APPEND BLANK

REPL XMBH WITH ZLXMBM，xmmc with zlxmmc，QJ WITH 0，BJYE WITH GDZCRZZ

YE=BJYE

FOR I=1 TO ZLQS-1

APPEND BLANK

REPL XMBH WITH ZLXMBM，xmmc with zlxmmc，QJ WITH i，ZJ WITH MQZJ， ;

QRRZFY WITH YE*FTL

QRRZFY1=QRRZFY1+QRRZFY

REPL BQFBJ WITH ZJ-QRRZFY

REPL BJYE WITH YE-BQFBJ

YE=BJYE

ENDFOR

APPEND BLANK

REPL XMBH WITH ZLXMBM，xmmc with zlxmmc，QJ WITH i，ZJ WITH MQZJ， ;

QRRZFY WITH WQDRZFY-QRRZFY1

REPL BQFBJ WITH ZJ-QRRZFY

REPL BJYE WITH YE-BQFBJ

THIS.PARENT.LABEL16.CAPTION=ALLTRIM(STR(GDZCRZZ，10，2))

THIS.PARENT.LABEL17.CAPTION=ALLTRIM(STR(WQDRZFY，10，2))

THIS.PARENT.LABEL18.CAPTION=ALLTRIM(STR(ZDZLFKE，10，2))

endif

use

(3)設計以后各期會計處理表單，用于根據選擇的相應的項目及期間，自動生成相應的分錄#65377;如圖2所示#65377;該表單中的COMBO1的ROWSOURCETYPE=3-SQL，ROWSOURCE=SELE XMBH FROM ZL DIST INTO CURS TEMP1，當單擊“確定”命令按鈕時自動生成相應期間的分錄#65377;該命令按鈕的CLICK EVENT代碼如下:

LOCATE FOR XMBH=THIS.PARENT.COMBO1.VALUE AND QJ=THIS.PARENT.SPINNER1.VALUE

IF FOUND()

THIS.PARENT.LABEL4.CAPTION=“借:長期應付款/應付融資租賃款”+LTRIM(STR(ZJ，10，2))

THIS.PARENT.LABEL5.CAPTION=“貸:銀行存款”+LTRIM(STR(ZJ，10，2))

THIS.PARENT.LABEL6.CAPTION=“借:財務費用”+LTRIM(STR(QRRZFY，10，2))

THIS.PARENT.LABEL7.CAPTION=“貸:未確認融資費用”+LTRIM(STR(QRRZFY，10，2))

ENDIF

三#65380;融資項目管理的應用

運行“租賃”表單，根據開頭例1，分別輸入項目編碼#65380;名稱#65380;每期租金等信息后，選擇“后付”選項按鈕，單擊“確定”命令按鈕后，自動生成相應的入賬的憑證分錄，如圖3所示#65377;運行“費用分攤表單”，選擇相應的項目編碼#65380;期間，單擊“確定”命令按鈕后，自動生成該期間的相應付款及未確認融資費用攤銷的憑證分錄，如圖4所示#65377;

主要參考文獻

[1] 劉秋生，張海斌. 數據庫技術及應用[M]. 南京:東南大學出版社，2003.

[2] 張國平. Excel在管理中的高級應用[J]. 北京:中國水利水電出版社，2004:120-125.

[3] 呂志明. 利用Excel設計融資租賃模型[J]. 財會月刊:綜合版，2006，(2):78-79.

[4] 王毅. 現代租賃業務的租金計算模型[J].財會通訊:學術版，2004，(5):87-90.