因为疫情,和家人两地的我又开始了自己一个人生活,所以我化悲愤为创作!今天给大家带来在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,终身学习者,不定时和大家分享知识和好书。
,Copyright © 2008-2022 秒下下载站
m.down10s.com .All Rights Reserved