论文部分内容阅读
［摘 要］ 在融资租赁承租人的会计处理中,租赁开始日最低租赁付款额现值、租赁资产入账价值、未确认融资费用、重新计算的实际分摊率及未确认融资费用在各期应确认的分摊额在手工方式下计算非常复杂。本文结合实际采用Excel VBA程序设计功能建立其计算模型，以简化计算工作。
［关键词］ Excel；融资租赁；计算；程序设计
［中图分类号］F232［文献标识码］A［文章编号］1673-0194（2008）10-0007-04
2006年财政部新发布了《企业会计准则第21号——租赁》（以下简称新租赁准则），根据该准则第十一条的规定，在租赁期开始日，承租人应当将租赁开始日租赁资产公允价值与最低租金付款额现值两者中较低者作为租入资产的入账价值，其差额作为未确认融资费用。第十五条规定，未确认融资费用应当在租赁期内各个期间采用实际利率法进行分摊。承租人应当采用实际利率法计算确认当期的融资费用，且应当根据租赁期开始日租入资产入账价值的不同情况，对未确认融资费用采用不同的分摊率。由此可知，承租人要计算租赁开始日最低租赁付款额现值、租赁资产入账价值、未确认融资费用分摊的实际分摊率及其各期应确认的分摊额，这在手工方式下计算非常复杂。为此，本文结合实例，采用Excel VBA程序设计功能建立其计算模型，以简化计算工作。
例：2006年12月1日，甲公司与乙公司签订了一份租赁合同，从2007年1月1日到2009年12月31日三年期间内，甲公司从乙公司租入塑钢机一台，每半年付租金150 000元，租入日该机器的公允价值为700 000元，合同规定半年利率为7%，甲公司在租赁谈判过程发生的相关手续费等为1 000元，租期届满时，甲公司享有优惠购买权，买价100元，估计该日此塑钢机的公允价值为800 000元。
根据实例，利用Excel VBA程序设计功能，建立融资租赁中承租人的计算模型，步骤如下。
一、设计最低租赁付款额现值计算模型
如图1所示，在Excel工作簿的sheet 1工作表的1~9行中建立基本数据，其中基本数据区中的数据是根据实际情况录入，但“每期期末支付的租金”一栏不直接输入数据，而是通过“租金录入及现值计算表”录入每期应支付的租金。这是考虑到模型的通用性，在实际工作中有可能每期支付的租金不同，且租赁期限也不固定。此处采用了设计“计算现值”按钮调用自定义宏的方式，根据租赁期限自动产生如图1所示的“租金录入及现值计算表”，录入各期应支付的租金后，该宏可自动计算出最低租赁付款额现值。定义“计算现值”宏的程序如下：
Sub 计算现值（）
’ hexuewu 记录的宏 2007-11-5
’清空工作表指定区域
Sheets（"sheet1"）. Select
Rows（"11：65536"）. Select
Selection.Delete
’ 给计算范围画边框线
nx = Cells（3，2）
For i = 1 To nx 2
For m = 1 To 3
With Cells（10 i，m）
.Borders. LineStyle = xlContinuous
End With
Next
If i < nx Then
Cells（10 i，1） = i
ElseIf i = nx Then
Cells（10 i，1） = i
Cells（10 i，3） = "=B8"
ElseIf i = nx 1 Then
Cells（10 i，1） = "合同规定的利率计算的现值"
Cells（10 i，2） = "=NPV（B6，B11：B" Trim（Str（Val（10 nx））） "）"
Cells（10 i，3） = "=NPV（B6，C11：C" Trim（Str（Val（10 nx））） "）"
Else
Cells（10 i，1） = "现值合计"
Cells（10 i，2） = "=sheet1!B" Trim（Str（Val（11 nx））） " sheet1!C" Trim（Str（Val（11 nx）））
End If
Next
End Sub
二、设计实际利率计算程序
新租赁准则规定，以租赁资产公允价值为入账价值的，应当重新计算分摊率。此处采用了设计“计算实际利率”按钮调用自定义宏的方式，根据前面计算出的最低租赁付款额现值与资产公允价值相比较，如果大于公允价值，则应重新计算分摊率，宏自动在sheet 1工作表中的“E11：F15”区域中显示如图2所示的相关信息以及规划求解时需要输入的“目标单元格”的公式和“可变单元格”的初值，以便规划求解时使用；如果小于公允价值，则直接用原有折现率作为分摊率，只在“E15：F15”区域显示相关信息。
定义“计算实际利率”宏的程序如下：
Sub 计算实际利率（ ）
’ hexuewu 记录的宏 2007-11-5
Sheets（"Sheet1"）. Select
nx = Cells（3，2）
If Cells（13 nx，2） > Cells（5，2） Then
For i = 1 To 3
For m = 1 To 2
With Cells（11 i，4 m）
.Borders.LineStyle = xlContinuous
End With
Next
Next
Cells（11，5） = "租赁开始日最低租赁付款额现值>资产公允价值"
Cells（12，5） = "须重新计算分摊率（实际利率）——利用规划求解计算"
Cells（13，5） = "目标单元格："
Cells（14，5） = "可变单元格："
Cells（13，6） = "=NPV（F13，B11：B" Trim（Str（Val（10 nx））） "）" " NPV（F13，C11：C" Trim（Str（Val（10 nx））） "）"
Cells（14，6） = Cells（6，2）
Cells（15，5） = "实际分摊率为："
Cells（15，6） = "=round（F13，2）"
Else
For i = 1 To 2
With Cells（15，4 i）
.Borders.LineStyle = xlContinuous
End With
Next
Cells（15，5） = "实际分摊率为："
Cells（15，6） = Cells（6，2）
End If
End Sub
三、规划求解
在“工具”菜单下单击“规划求解”菜单项，弹出如图3所示的对话框，在此对话框中设置好“目标单元格”和“可变单元格”的单元格地址以及约束条件，此处可将约束条件设置为可变单元格（实际折现率）大于或等于0.000 1，而目标单元格的设定值是根据准则规定，重新计算的分摊率是使最低租赁付款额的现值等于租赁资产公允价值的折现率，此处为输入基本数据区中的“租赁日资产的公允价值”中的数据。设定完成后单击“求解”按钮即可。此时“可变单元”中的值即为重新计算的分摊率（实际折现率）。
综上所述，此模型具有很强的通用性和实用性，并且操作简单。当用户需要进行融资租赁的会计处理时，只要在基本数据区输入相关数值，然后单击“计算现值”按钮，模型就可以自动生成每期应支付的租金表供用户输入，输入完每期应支付租金数据之后，模型会自动计算出最低租金付款额现值；然后单击“计算实际利率”按钮，模型会自动判断是否需要重新计算分摊率，如果需要计算，则自动生成“规划求解”所需定义的有关初值和公式，供用户进行规划求解时使用；最后单击“计算分摊值”按钮，模型会自动计算会计处理时所需的各种数据和每期应确认的融资费用，便于用户进行会计处理。此模型在进行融资租赁业务审计时也十分有用。另外，对于出租人的会计处理的有关计算只需对模型稍作修改即可。
主要参考文献
［1］ 李政，梁海英，李昊. VBA应用基础及实例教程［M］. 北京：国防工业出版社，2005.
［2］ 韩良智. Excel在财务管理与分析中的应用［M］. 北京：中国水利水电出版社，2004.
［3］ 财政部. 企业会计准则［S］. 2006.
［4］ 沈旭辉，周定文，邓思华. 中文Visual Basic 6.0实用教程［M］. 成都：电子科技大学出版社，1999.
［关键词］ Excel；融资租赁；计算；程序设计
［中图分类号］F232［文献标识码］A［文章编号］1673-0194（2008）10-0007-04
2006年财政部新发布了《企业会计准则第21号——租赁》（以下简称新租赁准则），根据该准则第十一条的规定，在租赁期开始日，承租人应当将租赁开始日租赁资产公允价值与最低租金付款额现值两者中较低者作为租入资产的入账价值，其差额作为未确认融资费用。第十五条规定，未确认融资费用应当在租赁期内各个期间采用实际利率法进行分摊。承租人应当采用实际利率法计算确认当期的融资费用，且应当根据租赁期开始日租入资产入账价值的不同情况，对未确认融资费用采用不同的分摊率。由此可知，承租人要计算租赁开始日最低租赁付款额现值、租赁资产入账价值、未确认融资费用分摊的实际分摊率及其各期应确认的分摊额，这在手工方式下计算非常复杂。为此，本文结合实例，采用Excel VBA程序设计功能建立其计算模型，以简化计算工作。
例：2006年12月1日，甲公司与乙公司签订了一份租赁合同，从2007年1月1日到2009年12月31日三年期间内，甲公司从乙公司租入塑钢机一台，每半年付租金150 000元，租入日该机器的公允价值为700 000元，合同规定半年利率为7%，甲公司在租赁谈判过程发生的相关手续费等为1 000元，租期届满时，甲公司享有优惠购买权，买价100元，估计该日此塑钢机的公允价值为800 000元。
根据实例，利用Excel VBA程序设计功能，建立融资租赁中承租人的计算模型，步骤如下。
一、设计最低租赁付款额现值计算模型
如图1所示，在Excel工作簿的sheet 1工作表的1~9行中建立基本数据，其中基本数据区中的数据是根据实际情况录入，但“每期期末支付的租金”一栏不直接输入数据，而是通过“租金录入及现值计算表”录入每期应支付的租金。这是考虑到模型的通用性，在实际工作中有可能每期支付的租金不同，且租赁期限也不固定。此处采用了设计“计算现值”按钮调用自定义宏的方式，根据租赁期限自动产生如图1所示的“租金录入及现值计算表”，录入各期应支付的租金后，该宏可自动计算出最低租赁付款额现值。定义“计算现值”宏的程序如下：
Sub 计算现值（）
’ hexuewu 记录的宏 2007-11-5
’清空工作表指定区域
Sheets（"sheet1"）. Select
Rows（"11：65536"）. Select
Selection.Delete
’ 给计算范围画边框线
nx = Cells（3，2）
For i = 1 To nx 2
For m = 1 To 3
With Cells（10 i，m）
.Borders. LineStyle = xlContinuous
End With
Next
If i < nx Then
Cells（10 i，1） = i
ElseIf i = nx Then
Cells（10 i，1） = i
Cells（10 i，3） = "=B8"
ElseIf i = nx 1 Then
Cells（10 i，1） = "合同规定的利率计算的现值"
Cells（10 i，2） = "=NPV（B6，B11：B" Trim（Str（Val（10 nx））） "）"
Cells（10 i，3） = "=NPV（B6，C11：C" Trim（Str（Val（10 nx））） "）"
Else
Cells（10 i，1） = "现值合计"
Cells（10 i，2） = "=sheet1!B" Trim（Str（Val（11 nx））） " sheet1!C" Trim（Str（Val（11 nx）））
End If
Next
End Sub
二、设计实际利率计算程序
新租赁准则规定，以租赁资产公允价值为入账价值的，应当重新计算分摊率。此处采用了设计“计算实际利率”按钮调用自定义宏的方式，根据前面计算出的最低租赁付款额现值与资产公允价值相比较，如果大于公允价值，则应重新计算分摊率，宏自动在sheet 1工作表中的“E11：F15”区域中显示如图2所示的相关信息以及规划求解时需要输入的“目标单元格”的公式和“可变单元格”的初值，以便规划求解时使用；如果小于公允价值，则直接用原有折现率作为分摊率，只在“E15：F15”区域显示相关信息。
定义“计算实际利率”宏的程序如下：
Sub 计算实际利率（ ）
’ hexuewu 记录的宏 2007-11-5
Sheets（"Sheet1"）. Select
nx = Cells（3，2）
If Cells（13 nx，2） > Cells（5，2） Then
For i = 1 To 3
For m = 1 To 2
With Cells（11 i，4 m）
.Borders.LineStyle = xlContinuous
End With
Next
Next
Cells（11，5） = "租赁开始日最低租赁付款额现值>资产公允价值"
Cells（12，5） = "须重新计算分摊率（实际利率）——利用规划求解计算"
Cells（13，5） = "目标单元格："
Cells（14，5） = "可变单元格："
Cells（13，6） = "=NPV（F13，B11：B" Trim（Str（Val（10 nx））） "）" " NPV（F13，C11：C" Trim（Str（Val（10 nx））） "）"
Cells（14，6） = Cells（6，2）
Cells（15，5） = "实际分摊率为："
Cells（15，6） = "=round（F13，2）"
Else
For i = 1 To 2
With Cells（15，4 i）
.Borders.LineStyle = xlContinuous
End With
Next
Cells（15，5） = "实际分摊率为："
Cells（15，6） = Cells（6，2）
End If
End Sub
三、规划求解
在“工具”菜单下单击“规划求解”菜单项，弹出如图3所示的对话框，在此对话框中设置好“目标单元格”和“可变单元格”的单元格地址以及约束条件，此处可将约束条件设置为可变单元格（实际折现率）大于或等于0.000 1，而目标单元格的设定值是根据准则规定，重新计算的分摊率是使最低租赁付款额的现值等于租赁资产公允价值的折现率，此处为输入基本数据区中的“租赁日资产的公允价值”中的数据。设定完成后单击“求解”按钮即可。此时“可变单元”中的值即为重新计算的分摊率（实际折现率）。
综上所述，此模型具有很强的通用性和实用性，并且操作简单。当用户需要进行融资租赁的会计处理时，只要在基本数据区输入相关数值，然后单击“计算现值”按钮，模型就可以自动生成每期应支付的租金表供用户输入，输入完每期应支付租金数据之后，模型会自动计算出最低租金付款额现值；然后单击“计算实际利率”按钮，模型会自动判断是否需要重新计算分摊率，如果需要计算，则自动生成“规划求解”所需定义的有关初值和公式，供用户进行规划求解时使用；最后单击“计算分摊值”按钮，模型会自动计算会计处理时所需的各种数据和每期应确认的融资费用，便于用户进行会计处理。此模型在进行融资租赁业务审计时也十分有用。另外，对于出租人的会计处理的有关计算只需对模型稍作修改即可。
主要参考文献
［1］ 李政，梁海英，李昊. VBA应用基础及实例教程［M］. 北京：国防工业出版社，2005.
［2］ 韩良智. Excel在财务管理与分析中的应用［M］. 北京：中国水利水电出版社，2004.
［3］ 财政部. 企业会计准则［S］. 2006.
［4］ 沈旭辉，周定文，邓思华. 中文Visual Basic 6.0实用教程［M］. 成都：电子科技大学出版社，1999.