Not sure if this performs better than the suggested solutions (code is not tested):
proc format;
invalue freq2num
'M' = 1
'H' = 6
'Q' = 3
'F' = 2
other = .;
run;
data want;
set have;
date1=canceldate;
days2=intnx('month',date1,input(freq, freq2num.)) - intnx('month',date1,0);
if days < days2 then do;
prem=round(days/days2*prem1,0.01);
calc=round(days/days2*calc1,0.01);
end;
run;
... View more
