cxw750707 发表于 2008-10-21 22:35

累计折旧的自定义函数

<p>**** Hidden Message *****</p><p>Public Function lxx(vara, varb) As Date<br/>lxx = Year(varb) * 12 + Month(varb) - Year(vara) * 12 - Month(vara)<br/>End Function<br/>Public Function jx(x, y)<br/>If x &lt; y Then<br/>jx = x<br/>ElseIf x &gt; y Then<br/>jx = y<br/>Else: x = y<br/>jx = y<br/>End If<br/>End Function</p><p>Public Function ljzj(a, b, c, d, e)<br/>Dim f As Date, g As Date<br/>f = a<br/>g = b<br/>If f &lt; g Then<br/>ljzj = (d - e) / c / 12 * jx(lxx(a, b), c * 12)<br/>ElseIf f &gt; g Then<br/>ljzj = 0<br/>Else: f = g<br/>ljzj = 0<br/>End If<br/>End Function</p><p>说明：</p><p>在单元格中输入=ljzj(购入日期，截止日期，使用寿命，初始价值，残值)，两年累计折旧差即为本年折旧。上述自定义函数保存为加载宏可运行。</p>

秦始皇 发表于 2008-11-10 21:29

谢谢分享

秦始皇 发表于 2008-11-10 21:51

w99w 发表于 2008-11-22 22:40

icenotcool 发表于 2011-11-24 21:03

:(:({:1_1:}{:1_1:}{:1_1:}

vbyou127 发表于 2016-1-4 16:58

26626

sunche 发表于 2022-5-31 14:57

谢谢分享
页: [1]
查看完整版本: 累计折旧的自定义函数