利用EXcel处理承租人融资租赁中的会计问题

[摘要]纵观各种财务软件，对于融资租赁问题的处理相对较少，本文主要通过Excel来解决融资租赁的会计电算化，尤其对于实务中难以解决的未确认融资费用按实际利率分摊的问题，是本文研究处理的柱心．[关键词]融资租赁；承租人；Excel融资租赁业务的计算处理相对于其他的交易和事项，要复杂很多，所以对于融资租赁，很多企业依然采用手工方法处理后再将有关费用、收益进行入账，过程比较复杂。尤其对于承租人的未确认融资费用和出租人的未实现融资收益按照实际利率法的分摊在计算处理过程中存在很多问题，所以多数企业对于未确认融资费用和未实现融资收益都是采用直线法分摊，这样比较简单。但直线法分摊存在很多缺点，主要是不符合权责发生制原则，而实际利率法能弥补此缺陷．所以本文就是要充分发挥实际利率法分摊的优势，通过Excel建立模型自动化，解决实际利率法手工条件下很难处理的复杂问题。一、资产租赁类型的判断租赁，指在约定的期间内，出租人将资产使用权让与承租人以获取租金的协议。根据租赁的目的，以与租赁资产所有权有关的风险和报酬归属于出租人或承租人的程度为依据，将其分为融资租赁和经营租赁两类。对于一项租赁究竟属于融资租赁还是经营租赁，需要做出定性和定量的分析，本文主要对定量分析做出了Excel处理。相关会计人员可先通过定性分析，判断融资租赁类型，若是融资租赁(比如所有权等同于转让了)，则可直接往模型里输入相关数据，融资租赁的会计处理将会自动产生。如果通过定性分析不能判断出租赁是否是融资性质的，可通过模型来定量分析租赁类型，判断结果是融资租赁的，可使用该模型做出融资租赁的会计处理，若不是融资租赁则不适用该模型。以下为租赁类型定量分析用Excel进行处理。1．如表1，在B1单元格中输入“融资租赁承租人会计处理”；在A3：A19单元格中分别输入：“全新可使用年限：”、“已使用年限；”、“可使用的期限：”、“租赁的期限：”、“租赁期限占可使用年限：”、“已使用年限占全新年限：”、“每期租金付款额：”、“承租人加其有关第三方的担保余值：”、“合同利率：”、“租金与担保余值的现值之和：”、“租赁资产账面净值：”、“最低租赁付款额：”、“租赁现值占租赁资产账面净值：”、“判断租赁类型：”、“租赁资产的入账价值：”、“利率或折现率：”、“未确认融资费用：”。2.在B3单元格中输入“5”；B4单元格中输入“1”：B5单元格中输入公式“=＄B＄3—＄B＄4”，可使用的期限：全新可使用年限-已使用年限；B6单元格中输入“4”；B7单元格中输公式“=＄B＄6／＄B＄5”；D7单元格中输入“0．75”；C7单元格中输入公式“=IF(＄B＄7＄D＄7，“”，IF(＄B＄7=＄D＄7，“=”，“”))”，比较单元格B7与D7中值的大小。3．在单元格B8中输入公式“=＄B＄4／＄B＄3”，单元格D8中输入“0．75”，单元格C8中输入公式“=IF(＄B＄8＄D＄8，“”，IF(＄B＄8=＄D＄8，“=”，“”))”，比较单元格B8与D8中值的大小。4．在单元格B9；B11中分别输入“270000”、“116694”、“0．09”；在单元格B12中输入公式“=PV(＄B＄11，＄B＄6，-＄B＄9，-＄B＄10)”，每期租金的年金现值加担保余值的复利现值。5．在B13中输入“54347826”；E14单元格中输入公式“=＄B＄9*＄B＄6+＄B＄10”，最低租赁付款额；每期租金*租期+担保余值；6．在单元格B15中输入公式“=＄B＄l2／＄B＄l3”；D15单元格中输入“0．9”；C15单元格中输入公式“=IF(＄B＄15＄D＄l5，“”，IF(＄B＄l5=＄D＄l5，“=”，“”))”，比较单元格B15与D15中值的大小。7．在单元格B16中输入公式“=IF(＄B＄8＄D＄8，“经营租赁”，IF(＄D＄7=＄D＄7，“融资租赁”IF(＄B＄l5=＄D＄l5，“献资租赁”，“经营租赁”)))”，其含义为满足下列条件：只要(1)和(2)同时满足或(1)和(3)同时满足的条件下可确认为融资租赁。(1)已使用年限占全新年限小于75％；(2)租赁期限占可使用年限大于75％；(3)租赁现值占租赁资产账面净值大于90％。以上程序处理为判断融资租赁的定量分析，承租人只要输入原始数据，程序就可以自动帮助判断租赁的类型，若是融资租赁，程序将自动进入下面环节。二、租赁资产的入账价值和“未确认融资费用”的计量融资租赁会计处理的关键在于资产的入账价值和未确认融资费用的计量，这两方面也是融资租赁会计处理的难点所在，以下着重谈一下这两方面问题的处理。1．如表2，在单元格B17中输入公式“＝IF(＄B＄l2＄B＄13，＄Ｂ＄13，＄B＄12)”，比较“租金现值加担保余值的现值之和”与“租赁资产账面净值”的大小，通过孰低法确认“租赁资产的入账价值”。2．在上一条中如果“租赁资产的入账价值”是以“租赁资产账面净值”入账(即单元格B13中的值小于单元格B12中的值，比如单元格B13中的值为“900000”)，则要重新计算融资费用分摊率；重新计算分摊利率的方法为：在单元格F2中输入公式“=IF(＄B＄12＄B＄l3，”“，-＄B＄13)”；在单元格E3中输入公式“=IF(＄B＄12＄B＄13，＄E2+1，””)”再选中单元格E3向下拖动填充柄到E22：在单元格F3中输入公式“=IF(＄B＄12＄B＄13，”“，IF(＄B＄6—＄E3O，＄B＄9，IF(＄B＄6-SE3=O，＄B＄9+＄B＄l0，0)))”，再选中单元格F3向下拖动填充柄到F22。最后，在单元格B18中输入公式“=IF(＄t＄12=＄B＄13，＄B＄11，IRR(F2：F22))”，确认租赁资产的入账价值并确认分摊率。3．在单元格B19中输入公式“=＄B＄14-＄B＄18”，未确认融资费用=最低租赁付款额-租赁资产的入账价值。4．下面通过添加“滚动条”与单元格值的绑定来实现数据的自动录入，只要拖动“滚动条”单元格中的值随之改变(但也可以手工输入)，即可实现多因素同时改变的自动化。(1)点击菜单栏“视图”选中“工具栏”中“控件工具箱”弹出“控件”工具箱界面，点击“滚动条”按钮并把滚动条BerollBarl拖放到单元格C3中，再点击此滚动条将弹出编辑Ⅷ宏的窗口，如表3：在代码窗口中编写代码为：PrivateSubSerollBarlChange()ScrollBarl．Max=20’最大值为20年ScrollBarI.Min=0’量小值为0年ScrollBarl．SmallChange=1ScrollBarl．LargeChange=5Sheetl．Range(“b3”)．Value=ScrollBarl．Value’单元格B3的值等于滚动条的值EndSub代码含义为：全新最大使用年限为20年，最小为0年，滚动条的值与单元格B3的值绑定。(2)同理在C4单元格中添加一滚动条ScrollBar2其值与单元格B4绑定，且其最大值要等于单元格B3中的值，因为已使用年限不能超过全新使用年限，滚动条Scroll—Bar2中的代码为：PrivateSubScrollBar2Change()ScrollBar2．Max=Sheetl．Range(“b3”)．ValueScrollBar2．Min=0ScrollBar2．SmallChange=1ScrollBar2．LargeChange=5Sheetl．Range(“b4”)．Value=ScrollBar2．ValueEndSub转贴于中国论文下载中心3)在单元格C6中添加一滚动条ScrollBar3，其值与单元裕B6绑定，其最大值小于单元格B5中的值，因为租赁的期限不能超过可使用年限。滚动条中的代码如下：PrivateSubScrollBar3_Change()ScrollBar3．Max=Sheetl．Range(“b5”)．ValueScrollBar3．Min=0ScrollBar3．SmallChange=1ScrollBar3．LargeChange=5Sheetl．Range(“b6”)．Value=Scroll-Bar3．ValueEndSub(4)在单元格C9中添加一滚动条Scroll-Bar4，其值与单元柳9绑定，代码如下：PrivateSubScrollBax4_Change()ScrollBar4．Max=1000000000SerollBar4．Min=0ScrollBar4．SmallChange=1ScrollBar4．LargeChange=10Sheetl．Range(“b9”)．Value=Scroll-Bar4．ValueEndSub(5)在单元格ClO中添加一滚动条Scro-llBar5，其最大值小于租赁资产的账面净值与单元格B10绑定，代码如下：PrivateSubScrollBarS_Change()ScrollBar5．Max=Sheetl．Range(“b13”)．ValueScrollBar5．Min=OScrollBar5．SmallChange=1ScrollBar5．LargeChange=10Sheetl．Range(“blO”)．Value=ScrollBar5．ValueEndSUb(6)在单元格Cll中添加一滚动条ScrollBar6，其值与单元格Bll绑定，且其值只能在0～1之间变动，因为折现率不超过1，代码如下：PrivateSubScrollBar6Change()SerollBar6．Max=100ScrollBar6．Min=0ScrollBar6．SmallChange=1ScrollBar6．LargeChange=10Sheetl．Range(“bll”)．Value=ScrollBar6．Value／100EndSub(7)在单元格C13中添加一滚动条ScrollBar7，其值与单元格B13绑定，代码如下：PrivateSubScrollBar7_Change()ScrollBar7．Max=1000000000ScrollBar7．Min=0ScrollBar7．SmallChange=1ScrollBar7．LargeChange=10Sheetl．Range(“b13”)．Value：ScrollBar7．ValueEndSub5．在单元格C4：C7中分别输入“租赁日会计分录：”、“借：固定资产一融资租入固定资产”、“未确认融资费用”、“贷：长期应付款一应付融资租赁款”，如下表4：在单元格H5中输入公式“=＄B＄l7”；单元格H7中输入公式“=＄B＄14；单元柳6中输入公式“=＄H＄7-＄H＄5”。三、采用实际利率法分摊未确认融资费用融资租赁下，在分摊未确认融资费用时，承租人应采用合理的方法加以计算。承租人既可以采用实际利率法，也可以采用直线法、年数总和法等。相比较而言，实际利率法更精确一些，所以以下是采用实际利率法分摊未确认融资费用的Excel处理过程。1．如表5：(本模型以20年为例)在单元格A25：E25中分别输入“日期”、“租金”、“确认的融资费用”、“应付本金减少额”、“应付本金余额”；单元格朋6：E26中分别输入“＝“(1)””、“＝“(2)””、“＝“(3)＝期初(5)＊利率””、“＝“(4)＝(2)－(3)””、“＝“期末(5)＝期初(5)－(4)””：在单元格A24：A42中分别输入从1到20之间的数。2．在单元格E27中输入公式“＝＄Ｂ＄17”；在B28单元格中输入公式“=IF(＄Ｂ＄6－＄A280，0，＄B＄9)”，再选择单元格B28向下拖动填充柄到B47。3．在单元格C28中输入公式“=IF(＄B＄6—＄A＄280，0，＄E27*＄B＄18)”，再选择单元格C28向下拖动填充柄到C47。4．在单元格D28中输入公式“=＄B28-＄C28”，再选择单元格D28向下拖动填充柄到D47。5．在单元格E28中输入公式“=IF(＄B＄6-＄A28=0，0，＄E27-＄D28)”