variable:n=0;
if month<>ref(month,1) then n:=0;

if weekday<ref(WEEKDAY,1) then n:=1;

if n>3 then 開倉語句;