| 楼主 breezy |
双倍余额递减法是在不考虑固定资产残值的情况下，根据每期期初固定资产账面净值和双倍的直线法折旧率计算固定资产折旧的一种方法。 在使用双倍余额递减法时要注意在最后两年计提折旧时，将固定资产账面净值扣除预计净残值后的净值平均摊销。 例：丙企业新购入一台原值为60000元的设备，预计使用年限为4年，净残值为2000元。按双倍余额抵减法计算折旧，要求计算出每年的折旧额。 第一年折旧额：60000×2/4＝30000（元） 第二年折旧额：（60000-30000）×2/4＝15000（元） 第三年、第四年折旧额：（60000-30000-15000-2000）/2＝6500（元） 在EXCEL中可以使用DDB函数来计算各年的折旧额，方法如下： DDB(cost,salvage,life,period,factor) Cost 为资产原值。 Salvage 为资产在折旧期末的价值（也称为资产残值）。 Life 为折旧期限（有时也称作资产的使用寿命）。 Period 为需要计算折旧值的期间。Period 必须使用与 life 相同的单位。 Factor 为余额递减速率。如果 factor 被省略，则假设为 2（双倍余额递减法）。 但是这个函数的缺陷在于最后两年计提折旧时，没有将固定资产账面净值扣除预计净残值后的净值平均摊销，不符合我国会计准则，导致最后两年的折旧计算错误。 为了修正这个错误，写了两个自定义函数，使用任意一个都可以计算出正确的折旧额。 自定义函数DDBNEW： Function DDBNEW(Cost#, Salvage#, Life%, Period%) Dim i%, SumDep# Select Case Period Case Is > Life - 2 For i = 1 To Life - 2 SumDep = SumDep + Application.DDB(Cost, Salvage, Life, i) Next DDBNEW = (Cost - SumDep - Salvage) / 2 Case Else DDBNEW = Application.DDB(Cost, Salvage, Life, Period) End Select End Function 自定义函数DDBNEW1： Function DDBNEW1(Cost#, Salvage#, Life%, Period%) Dim i%, DepRate#, SumDep# DepRate = 2 / Life For i = 1 To Life - 2 SumDep = SumDep + Cost * (1 - DepRate) ^ (i - 1) * DepRate Next If Period > Life - 2 Then DDBNEW1 = (Cost - SumDep - Salvage) / 2 Else DDBNEW1 = Cost * (1 - DepRate) ^ (Period - 1) * DepRate End If End Function  DDBNEW.rar |
| 2楼 sinobilly |
 哇，这个牛的，谢谢谢谢阿 |
| 3楼 apolloh |
觉得好，可以给楼主加“魅力值”来表示您对他的支持 |
| 4楼 gouweicao78 |
支持。虽然对于财务方面我一窍不通，不会用到这个函数，呵呵。 |
| 5楼 yardview |
谢谢楼主，学习了 |
| 6楼 yuguanxue |
谢谢，这个比较不错哦 拿来学习一下 |
| 7楼 蜀郭浪君 |
楼主你好 请问能不能将你这个函数制作一个折旧测试模板啊？ |
| 8楼 悠悠雨 |
学习双倍的 |
| 9楼 tsh134 |
拿来学习一下 |
| 10楼 芐雨 |
学习 |
| 11楼 杨万惠 |
学习了 |