要了解N年配股次數

請問如何顯示正確配股次數

代碼如下:

input:cash(5,"N年現金股息股利平均");

input:ratio(55,"配股配息率%");

input:cashY(10,"N年配息次數");

array:ValueArray[99](0);

var:i(0);

for i=1 to cashY begin  

   if GetField("現金股利","Y")[i-1] > 0

   then ValueArray[i]=1;

end;

value6 = array_Sum(ValueArray,1,cashY); //統計配息次數

value1 = GetField("現金股利","Y");

value2 = GetField("股票股利","Y");

value3 = GetField("每股稅後淨利(元)","Y");

//Value5 = GetField("除權息日期");        //除權息日期

if value1 >0

then value4 = (value1+value2)/value3*100;

if trueall(value4>ratio,cash) then  ret=1;

outputfield(1,average(value4,cash),"N年平均配息率");

outputfield(2,GetField("除權息日期"),"除權息日期");

outputfield(3,value6,"N年配息次數");