原碼: DD:=day; YM:=sum(barpos=1 or month<>ref(month,1),0);
RSP:C*0;
for i=1 to datacount do begin
NowYM:=YM[i]; NowDD:=DD[i];
for j=i-1 downto 1 do begin
if YM[j]<>NowYM then begin
if DD[j]<=NowDD or NowYM-YM[j]>1 then begin
RSP[i]:=i-j; break;
end;
end;
end;
end;