powerbuilder四种资产折旧方式代码
时间: 2023-10-03 10:07:40 浏览: 54
以下是PowerBuilder中实现四种资产折旧方式的代码:
1. 直线折旧法
li_years = dw_1.GetItemNumber(row, "years")
ld_cost = dw_1.GetItemNumber(row, "cost")
ld_salvage = dw_1.GetItemNumber(row, "salvage")
ld_annual_depr = (ld_cost - ld_salvage) / li_years
dw_1.SetItem(row, "annual_depr", ld_annual_depr)
dw_1.SetItem(row, "accum_depr", ld_annual_depr * li_period)
2. 双倍余额递减法
li_years = dw_1.GetItemNumber(row, "years")
ld_cost = dw_1.GetItemNumber(row, "cost")
ld_salvage = dw_1.GetItemNumber(row, "salvage")
ld_annual_depr = ld_cost / li_years * 2
ld_current_value = ld_cost - ld_annual_depr * (li_period - 1)
ld_accum_depr = ld_cost - ld_current_value
dw_1.SetItem(row, "annual_depr", ld_annual_depr)
dw_1.SetItem(row, "accum_depr", ld_accum_depr)
3. 递减余额递减法
li_years = dw_1.GetItemNumber(row, "years")
ld_cost = dw_1.GetItemNumber(row, "cost")
ld_salvage = dw_1.GetItemNumber(row, "salvage")
ld_rate = 1 / li_years
ld_current_value = ld_cost
FOR li_i = 1 TO li_period
ld_annual_depr = ld_current_value * ld_rate
ld_accum_depr += ld_annual_depr
ld_current_value -= ld_annual_depr
NEXT
dw_1.SetItem(row, "annual_depr", ld_annual_depr)
dw_1.SetItem(row, "accum_depr", ld_accum_depr)
4. 总和年数法
li_years = dw_1.GetItemNumber(row, "years")
ld_cost = dw_1.GetItemNumber(row, "cost")
ld_salvage = dw_1.GetItemNumber(row, "salvage")
li_total_years = li_years * (li_years + 1) / 2
ld_annual_depr = (ld_cost - ld_salvage) / li_total_years
ld_accum_depr = ld_annual_depr * (li_total_years - (li_years - li_period) * (li_years - li_period + 1) / 2)
dw_1.SetItem(row, "annual_depr", ld_annual_depr)
dw_1.SetItem(row, "accum_depr", ld_accum_depr)
相关推荐
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)