日付間隔と時間間隔

options intervalds=(StoreHours=StoreHoursDS);
data StoreHoursDS(keep=begin end);
   start = '01JAN2009'd;
   stop  = '31DEC2009'd;
   do date = start to stop;
      dow = weekday(date);
      datetime=dhms(date,0,0,0);
      if dow not in (1,7) then 
         do hour = 9 to 17;
            begin=intnx('hour',datetime,hour,'b');
            end=intnx('hour',datetime,hour,'e');
            output;
         end;
      else if dow = 7 then 
         do hour = 9 to 12;
            begin=intnx('hour',datetime,hour,'b');
            end=intnx('hour',datetime,hour,'e');
            output;
         end;
   end;
   format begin end datetime.;
run;
title 'Store Hours Custom Interval';

proc print data=StoreHoursDS (obs=18);
run;

options intervalds=(FiscalMonth=FMDS);
data FMDS(keep=begin season);
   start = '10JAN1999'd;
   stop  = '10JAN2001'd;
   nmonths = intck('month',start,stop);
   do i=0 to nmonths;
      begin = intnx('month',start,i,'S');
      season = month(begin);
      output;
   end;
   format begin date9.;
run;

proc print data=FMDS;
   title 'Fiscal Month Data';
run;

data sales(keep=date sales);
   do date = '01JAN2000'd to '31DEC2000'd;
      month = MONTH(date);
      dayofmonth = DAY(date);
      sales = 0;
      if (dayofmonth lt 10) then sales= month/9;
      output;
   end;
   format date monyy.;
run;

proc timeseries data=sales out=dataInFiscalMonths;
   id date interval=FiscalMonth accumulate=total;
   var sales;
run;

proc timeseries data=sales out=dataInStdMonths;
   id date interval=Month accumulate=total;
   var sales;
run;

data compare;
   merge dataInFiscalMonths(rename=(sales=FM_sales))
         dataInStdMonths(rename=(sales=SM_sales));
   by date;
run;

title 'Standard Monthly Data and Fiscal Month Data';

proc print data=compare;
run;

options intervalds=(BankingDays=BankDayDS);
data BankDayDS(keep=begin);
   start = '15DEC1998'd;
   stop  = '15JAN2002'd;
   nwkdays = intck('weekday',start,stop);
   do i = 0 to nwkdays;
      begin = intnx('weekday',start,i);
      year = year(begin);
      if begin ne holiday('NEWYEAR',year) and 
         begin ne holiday('MLK',year) and 
         begin ne holiday('USPRESIDENTS',year) and 
         begin ne holiday('MEMORIAL',year) and 
         begin ne holiday('USINDEPENDENCE',year) and 
         begin ne holiday('LABOR',year) and 
         begin ne holiday('COLUMBUS',year) and 
         begin ne holiday('VETERANS',year) and 
         begin ne holiday('THANKSGIVING',year) and 
         begin ne holiday('CHRISTMAS',year) then
      output;
   end;
   format begin date9.;
run;
data CountDays;
   start = '01JAN1999'd;
   stop  = '31DEC2001'd;
   ActualDays = intck('DAYS',start,stop);
   Weekdays   = intck('WEEKDAYS',start,stop);
   BankDays   = intck('BankingDays',start,stop);
   format start stop date9.;
run;

title 'Methods of Counting Days';

proc print data=CountDays;
run;