土地治理项目财务分析指标的计算

1、土地治理项目财务分析指标的计算在对土地治理项目进行预测、评估以及编制可研报告时，都会涉及到项目的财务分析指标。常见的动态财务分析指标主要包括财务净现值、内部收益率、投资回收期等。由于这些指标的计算方法、计算过程非常繁杂，难度比较大，因而一些单位往往只做静态分析，或者仅仅凭经验来估算一个值，这必然降低财务分析的准确性。传统的农业项目，比如一般的粮食种植项目的财务净现值、内部收益率指标不会太高，其投资回收期一般比较长。但如将土地治理和种植业结构调整结合起来，通过土地治理项目的实施达到建设“高效农业”目的，比如原种杂粮的土地，治理后种植价值很高供出口的蔬菜，这样的项目的财务分析指标就会比较高。但财务

2、指标高到什么水平、低到什么程度，单凭经验来估算是不行的。有些项目单位编制的“农业综合开发土地治理项目可研报告”上报后，经专家评估会给出诸如“项目经济效益分析不规范，可行性研究报告前后数据不一致”等意见，就说明了这个问题。农业产业化项目的财务分析，国家开发办给出了一套表格，计算方法也比较成熟；而对于土地治理项目财务分析指标，目前还没有现成的、易于上手操作的计算方法或实用程序。笔者从现有条件出发，对土地治理项目财务分析指标计算方法进行了一些探索，采用动态分析法和有无项目对比方法在Excel中设计了一套计算程序，在此和大家讨论，共求改进。一、报表的设计我们说财务指标的计算方法、计算过程繁杂，首先是因

3、为我们所掌握的材料没有被条理化、或是不知道需要哪些原始数据，其次才是公式和函数的选用。因此有必要设计一套完整的报表，使数据完整、公式规范。1、开发任务和投资计划表（表1）、主要措施投资计划表（表2）表1、表2是两张简表，参见图1、图2，其作用很简单，就是使我们见了这两张表，便对项目投资资金的来源（分类）、项目主要措施及其所需资金一目了然。图1 图22、国家农业综合开发项目任务投资表（表3）这是项目任务和投资总表，反映项目的全部投资内容。这张表是根据国家农业开发办给出的标准表格绘制的，我们可以从久其报表软件中的“年度土地治理项目计划”移植得到，参见图3。实际表格很长，由于篇幅限制这里不能反映表格

4、全部，而是进行了删减，仅起示意作用（下同）。图33、农林产品及农资价格表计算项目的收益首先须计算产品的成本、确定产品的销售价格，有必要设计一张 “农产品及农资价格表”，见图4所示的表4。此表“科目”一栏主列有产出和投入两大项，每项下面都留有足够的空行，以便随时增加或修改内容，如在“主产品”下可罗列各种农产品，如水稻、小麦、蔬菜等等。在投入这一项里，除了包含种子、农资，还应包括畜力、机械、水费等。在计算农产品收益时，其相应的副产品价值不应被忘却，如稻壳米糠、麦秸稻草都可卖钱，所以表中还列出副产品价格。图4表中设有“无项目”和“有项目”两栏。“无项目”是指项目实施之前的有关情况，或称之为“基础年”

5、的情况，“有项目”即是指项目实施后的情况。对于价格而言，也许两者是相同的，也许是不同的。比如同是小麦，基础年种植的是普通小麦，项目实施后种植的是优质面包专用小麦，两者种子和产品的价格都会不同。每期农业综合开发项目都会有较大的林业方面的投资，包括苗圃建设和防护林建设，在计算项目效益时这一块是不能或缺的；还有，在政策、条件允许的情况下，结合结构调整也会种植一些林果或其他用材林木。为了操作方便，将林业产品价格单列一张表（表5），见图5所示。表5的设置方法同表4。图54、投入产出表农业开发项目效益计算，主要有三大块组成：农业生产、林业生产和水利运行。分别设置了农业生产投入产出表、林业投入产出表和水利（

6、泵站、机电井）盈利分析表。 农业生产投入产出表（表6）图6参见图6。由于是采用有、无项目增量分析方法预测效益，所以表格分为“有项目”和“无项目”两部分来计算其投入产出。项目效益分析期取12年，这也是根据农业项目特别是土地治理项目的特点而定的。对于一般的种植业，我们可以认为项目实施的第三年能达到稳定期，因而将 “有项目”的12年分析期分为“第1年”、“第2年”和“第312年”三栏，以缩小表格的宽度、减少数据的输入量。 林业生产投入产出表（表7）林业生产投入产出表（参见图7）结构和农业生产投入产出表基本相同，不同的是，由于林业生产周期长，特别是用材林需生长7、8年甚至更长时间才能砍伐，所以在表中把

7、分析期12年全部列出。图7以上两张投入产出表都要依据表4、表5的数据计算。 水利生产分析表（表8）农业开发项目中水利建设是投资大头，对改善农业基本生产条件起到关键作用，除了使农业生产增效增收，其本身也在产生效益，和林业生产一样，在分析整体效益时这是不应或略的。因而要设计一张水利生产分析表，见图8。本表主要考虑属于项目投资的泵站、机电井的供水生产，通过其灌溉总面积、单位面积需水量、渠系利用率以及运行维护成本等基础数据测算出收益。如果还有其他水利收益，亦可以在表中加行。图8在计算成本时，一般还要考虑修理费、折旧费等因素，我们已把机械使用费、水费都已打入成本，所以就不必另设这些科目。 在项目中如果农

8、业机械投资数额较大，在使用这些机械时，可以仅计算它的修理费、折旧费等。5、固定资产折旧表（表9）农业开发资金投入形成的固定资产，如水库等设施使用年限能达到很长时间，在计算效益的12年分析期终了时仍有很大的利用价值，必须考虑这些资产的折旧残值。图96、财务现金流量表这是财务分析中最重要的一张表，结构形式参见表10。表中设有这样一些计算科目：有项目现金流入包括农业生产收入、林业生产收入、水利生产收入、回收工程投资残值。有项目现金流出包括项目投资、生产支出、其他水利设施运行与维修有项目净现金流量无项目现金流入农业生产收入、林业生产收入等。无项目现金流出包括农业生产支出、林业生产支出等。无项目净现金流

9、量增量净现金流量累计增量净现金流量图10根据本表中“增量净现金流量”可以计算出项目的财务净现值（NPV）和财务内部收益率（IRR），根据“累计增量净现金流量”可以计算出动态投资回收期。二、表间关系及公式设计整套表格相互之间联系紧密，表格中一些数据是根据另外表格中数据计算得来的，现仅就重点关系及公式说明如下。农、林产品价格表（表4、表5）仅是基础数据，其中不含数据及计算。这两张表必须很灵活，可以随意插入、删减或修改，以便根据实际情况取舍或修改科目和价格。表6、表7是农林生产的投入产出表，现以表6为例。设在主产品栏输入“小麦”，其后输入相应的种植面积和亩产量，在“价值”一栏将根据面积、亩产 和表4

10、中提供的小麦价格计算出小麦总的产值（价值）。价值的计算公式是如何设计的呢？让计算机“找到”小麦的单价，可以使用Excel的VLOOKUP函数。假定表4价格有关数据在D7G82范围内（称“查找区域”），基础年价格数据存放在“查找区域”的第3列；表6中的“小麦”是输入在A9单元格里，“面积”和“亩产”分别在C9和D9，则基础年价值的计算公式应该是：VLOOKUP（A9，表4!$D$7：$G$82，3，FALSE）*C9*D9考虑价值的单位是“万元”，还应该除以10000；另考虑如果在A9格里未输入信息之前公式结果会报错，再加以条件“如果A9是空格，结果显示为0”，这样，实际公式为：IF（A9=“

11、”，0，VLOOKUP（A9，表4!$D$7：$G$82，3,，FALSE）*C9*D9/10000）表6中产品或种子等名称必须和表4完全一致，否则函数VLOOKUP无法查找。为了确保计算不出错，我们使用“下拉框”的方法输入，见图11。“下拉框”是用Excel的“数据有效性”功能实现的，在“数据”菜单上，单击“有效性”命令，再单击“设置”选项卡，选择允许“序列”数值，设定好“数据来源”即可。图11现金流量表（表10）有关设置说明如下。“回收工程投资残值”，数据应填在“第12年”。“其他水利设施运行与维修”是指除泵站、机电井（表8已计算过成本）外发生的费用，不要重复计算。“财务净现值”和“财务内

12、部收益率”两项指标，可以用函数NPV和IRR计算。假定“增量净现金流量”数值在表10的E40P29的区域内、“累计增量净现金流量” 在E30P30内，“贴现率”在E29单元格里，则有：财务净现值NPV(E40,E29:P29)财务内部收益率IF(ISERROR(IRR(E29:P29,0.2),0,IRR(E29:P29,0.2)动态投资回收期累计增量净现值出现正值的前一年份|上一年累计增量净现值|/出现正值年份的当年增量净现值,可以将查询函数MATCH、INDEX和绝对值函数ABS嵌套使用，即：动态投资回收期MATCH（0，E30：P30，1）+ABS（INDEX（E30：P30，MATCH

13、（0，E30：:P30，1）/INDEX（E29：P29，（MATCH（0，E30：P30，1）+1）三、优化程序上面只说了主要公式和函数的选用，还有很多公式需要设置，有兴趣的读者不妨自己做一下，公式设置完成后就可以用来计算了。但到此为止，这套表格用起来还是不太方便，尤其是当反复使用时要删除旧数据会更加感觉不便。我们可以用VBA程序语句来优化。例如，删除行可用Delete命令，清除数据可以用ClearContents方法，以下的命令将删除“表6”的第810行的数据：Worksheets("表6").Rows("8:10").Delete而清除“表8”C5

14、F19区域的数据可以用以下方法：Worksheets("表8").Range("C5:F19 ").ClearContents为了便于保存计算结果，我们可以增加一套表格，这些工作表可以取名为“附表1附表10”，和“表1表10”的名称加以区别。使用以下语句可以将“表1”A1B14区域的数据传送到“附表1”中：Sheets("附表1").Range("A15：B14").Value = Sheets("表1").Range("A15：B14").Value在计算无误后， 由于“附表1附表10” 已不包