SAS Proc SQL получает записи с датой, ближайшей к определенной дате

Вы можете создать значение даты из него, используя функцию mdy(), например:

data have;
input Year  Month Id Type $;
datalines;
2010  3     1  A
2010  5     2  B
2010  10    1  A
2010  12    1  A
;
run;

data have;
set have;
format date date9.;
date = mdy(Month, 1, Year);
run;

У вас нет значения дня, поэтому я просто использовал 1 (каждая созданная дата - первое число месяца).

Теперь вы можете объединить две таблицы по идентификатору и вычислить разницу между датой в первой таблице и датой продвижения во второй таблице:

proc sql;
    create table want as
    select *
          ,abs(date - promote) as diff
    from have as a
           left join
         prom as b
           on a.id = b.id;
quit;

После этого вы сортируете итоговую таблицу по идентификатору, дате и разнице:

proc sort data=want;
by id date diff; 
run;

После сортировки набор данных выглядит так:

Year  Month  Id  Type   date       Promote    diff
---------------------------------------------------
2010  3      1   A      01MAR2010  20FEB2010  9
2010  3      1   A      01MAR2010  20MAY2010  80
2010  5      2   B      01MAY2010  .          .
2010  10     1   A      01OCT2010  20MAY2010  134
2010  10     1   A      01OCT2010  20FEB2010  223
2010  12     1   A      01DEC2010  20MAY2010  195
2010  12     1   A      01DEC2010  20FEB2010  284

Последний шаг, выполните итерацию по набору данных и проверьте, является ли первое значение diff для каждого значения идентификатора и даты меньше или больше 3 месяцев (я только что проверил 90 дней, вы также можете использовать функцию intck). Поскольку мы отсортировали набор данных по идентификатору, дате и разнице, первая строка должна быть ближайшей к дате, поэтому вы output только первую строку.

data want2(keep = year month id type duration);
set want;
by date;

if first.date and Type = 'A' then do;


if diff lt 90 then do;
    duration = 'A < 3 months';
    output want2;
end;
if diff gt 90 then do;
    duration = 'A > 3 months';
    output want2;

    end;
end;
else if first.date  then do;
    duration = type;
    output want2;
end;

run;

output используются, потому что мы хотим сохранить только некоторые строки (первую для каждой группы). Последний output находится там, чтобы строки со значением типа, отличным от A, также остались в конечном результате.

Это конечный результат:

Year    Month    Id    Type    duration
--------------------------------------------
2010    3        1     A       A < 3 months
2010    5        2     B       B
2010    10       1     A       A > 3 months
2010    12       1     A       A > 3 months