年金现值自定义函数

当当当当裤裆坦

Function pa(ByVal r, P, n As Double) As Double

'r 利息  'p 金额   'n 期限

   pa = ((1 + r) ^ n - 1) / (r * (1 + r) ^ n) * P

End Function

会计专业中有个现值概念，是将以后各期收付金额按一定的折现率折算为当前的金额，如果每期等额收付，且每期时间相同，则为年金，对应的现值叫做年金现值。

公式如下：


这个公式分解后是各期收付款的折现值之和。计算起来是十分复杂和效率低下的。好在有EXCEL帮助。

EXCEL本身提供的函数：PV可以计算出现值。而我又自己写了个自定义函数PA。

不是闲着没事干，主要是想着举一反三，如果EXCEL没有提供现成的解决方案或者自己不知道有现成的解决方案的情况下，我就自己写个自定义函数。

               
作者：归去来的分享小屋