A SAS date is recorded/coded as an integer, a simple mode function should be able to solve your problem. Hope this helps. data t1; do dates=today( )-80 to today( ) ; if mod(today( )-dates,28)=0 then days28_today=1; else days28_today=0; output; end; format dates yymmdd10.; run; proc print;run;