BondRemainPayNumber
简述
债券剩余的付息次数,与系统股票相关
BondRemainPayNumber(GoalDate:TDataTime;EndT:TDataTime;F:Int):Integer
名称 | 类型 | 说明 |
---|
GoalDate | TDataTime | 日期类型,到期日 |
EndT | TDataTime | 日期类型,交易日 |
F | Int | 整数类型,付息频率 |
返回 | Integer | 整数 |
若交易日小于到期日,获得交易日至到期日前一天的相隔天数y,债券剩余的付息次数为y/(365/F)的取整值加1,否则债券剩余的付息次数=0
//返回'BK000002'在2003年4月18日剩余的付息次数
SetSysParam(PN_Stock(),'BK000002'); //设置股票代码
GoalDate:=IntToDate(base(502026)); //到期日
EndT:=20030418T; //交易日
f:=base(502021); //付息频率
return BondRemainPayNumber(GoalDate,EndT,f);
//结果:8