換日線問題(取日盤&夜盤Kbar最大量高低點)

XQ大大問一下, 此程式如何修改成分別畫出日盤與夜盤區間(此用5分K)最大量Kbar最高價與最低價呢?

if barfreq <> "Min" and barinterval <> 5 then raiseruntimeerror("此範例僅支援5分頻率");

if GetField("日期","D")<>GetField("日期","D")[1] then 

begin 

value99 +=1;

if time=132500 then 

value99=0;

end;

if date=currentdate and value99<>0 then 

begin

Value1 = highestbar(volume,value99);

Value2 = high[value1];

Value3 = low[value1];

end

else

begin

value2=0;

value3=0;

end;

Plot1(value2, "大量K高");

plot2(value3, "大量K低");