WPS表格的JS宏开发入门3－－实现平均年限折旧计算法

因为疫情，和家人两地的我又开始了自己一个人生活，所以我化悲愤为创作！今天给大家带来在WPS表格中用JS宏实现平均年限折旧计算法。平均年限法又称为直线法，是将固定资产的折旧均衡地分摊到各期的一种方法。采用这种方法计算的每期折旧额均是等额的。计算公式为年折旧率=（1－预计净残值率）/预计使用年限×100%。这是最简单的折旧法，先看代码：

if (alg=="平均法"){ var lost_year=(in_value-last_value)/life_year var lost_rate=lost_year/in_value for (var i=1;i<=life_year;i++){ Worksheets.Item("计算器").Cells.Item(i+4,1).Value2=i Worksheets.Item("计算器").Cells.Item(i+4,3).Value2=lost_year Worksheets.Item("计算器").Cells.Item(i+4,3).NumberFormatLocal ="￥#,##0.00;￥-#,##0.00" Worksheets.Item("计算器").Cells.Item(i+4,2).Value2=lost_rate Worksheets.Item("计算器").Cells.Item(i+4,2).NumberFormatLocal = "0.00%" Worksheets.Item("计算器").Cells.Item(i+4,4).Value2=Worksheets.Item("计算器").Cells.Item(3,2).Value2-i*lost_year Worksheets.Item("计算器").Cells.Item(i+4,4).NumberFormatLocal ="￥#,##0.00;￥-#,##0.00" } }

在以上代码，通过判断alg变量内容判断是否使用平均法计算，如果是，则先计算每年折旧额lost_year等于入账金额in_value减去最后残值last_value后除以预期使用寿命，然后每年折旧额lost_year除以入账金额in_value得到折旧率lost_rate，然后通过 一个For循环依次计算每年的折旧值、折旧率以及账面剩余价值。这是一个很简单的算法，如果你是一个VBA开发者可以发现和VBA开发相比仅仅是部分语法和API调用的区别，整体没什么难度。需要注意还是赋值使用的是value2属性而不是value属性。

我是且行且思，一个程序员/数据分析师/金山办公KVP，终身学习者，不定时和大家分享知识和好书。