首先提取指定日债券收益率曲线数据,使用线性插值法获得关键年期即期利率。提取指定债券现金流数据,并通过权重分配计算前后关键年期的现金流映射数据,得到债券现金流对应的关键年期现金流数据。最后通过公式计算关键利率久期。关键利率久期的计算公式如下:
Dkrd,i=-1PPyi=P-,i-P+,i2*P0*?yi
其中,Dkrd,i为第i个关键期限点的关键利率久期;n为关键期限点个数;yi分别为第i个关键期限点的利率变动;P0为债券的估值全价,P-,i、P+,i为第i个关键期限点利率变动yi后对应的债券估值全价。
endt:=20200902T;
Ayear:=5;
RateChange:=0.0001;
keyyear:=array(0,0.25,0.5,1,3,5,7,10,15,20,30,50);
PBondID:="BTS000033";
Stockid:="BK020005";
N:=60;
Setsysparam(pn_Stock(),Stockid);
KRD:= Bond_KeyRateDuration(Endt,Ayear,RateChange,keyyear,PbondID,N);
return KRD;
//执行结果:0.248959583004042