我们通常知道某个特定发行人债券的市场价值P，并了解该债券的交易条款即支付情况，例如剩余期限、票息率、支付频率（通常是一年2次）。有了这些数据之后，我们可以计算债券的到期收益率。到期收益率有一个基本的假设，即再投资收益率等于到期收益率。事实上，到期收益率是该债券的即期收益率曲线的某一种平均。必须清楚到期收益率和上一节所提到的平值收益率是不一样的概念。请读者注意区别。
我们将通过VBA求解给定条件下的债券的到期收益率计算函数。首先自定义一个债券定价函数Bond＿Clean＿Price，这个函数求到的是债券的净价，而后再自定义到期收益率函数YTM，求到的是给定债券及交易价格下对应的到期收益率。
Function Bond＿Clean＿Price（Face＿Value As Double，Coupon＿Rate As Double，YTM
As Double，Time＿to＿Maturity As Double，Pay＿Frequency As Integer）
Dim num＿period As Double，temp＿sum As Double，i As Integer，Bond＿Full＿Price
As Double，Accrual＿Interest As Double
temp＿sum＝0
num＿period＝Pay＿Frequency＊Time＿to＿Maturity
For i＝0To Int（num＿period）
temp＿sum＝temp＿sum＋（Coupon＿Rate×Face＿Value／Pay＿Frequency）／（1＋
YTM／Pay＿Frequency）＾（i＋num＿period－Int（num＿period））
Next i
Bond＿Full＿Price＝temp＿sum＋Face＿Value／（1＋YTM／Pay＿Frequency）＾num＿period
Accrual＿Interest＝Coupon＿Rate×Face＿Value／Pay＿Frequency＊（1－num＿
period＋Int（num＿period））
Bond＿Clean＿Price＝Bond＿Full＿Price－Accrual＿Interest
End Function
＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝
Function YTM（Face＿Value As Double，Trading＿Price As Double，Coupon＿Rate As
Double，Time＿to＿Maturity As Double，Pay＿Frequency As Integer）(www.xing528.com)
Dim yield As Double，left＿yield As Double，right＿yield As Double，n
As Integer
left＿yield＝0
right＿yield＝2
Do
yield＝0．5×（left＿yield＋right＿yield）
If Bond＿Clean＿Price（Face＿Value，Coupon＿Rate，yield，Time＿to＿Maturity，Pay
＿Frequency）＞Trading＿Price Then
left＿yield＝yield
Else
right＿yield＝yield
End If
Loop While Abs（Bond＿Clean＿Price（Face＿Value，Coupon＿Rate，yield，Time＿to＿
Maturity，Pay＿Frequency）－Trading＿Price）＞0．005
YTM＝yield
End Function
图7．2就是利用YTM函数得到的不同债券交易价格（净价）对应的到期收益率计算结果。
图7．2
免责声明：以上内容源自网络，版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。
