分享一个在指定日期哪些高送配股票股权登记的代码

input:N(0603,0,999999,1);
A1:=PFFININ(2001,2015,N);
A2:=PFFININ(2002,2015,N);
AA:=A1+A2;
AA>=5;