sas proc sql - 获取最小日期并添加 1 年

Question

我有一个带有 ID 的数据集，每个 ID 都有多个日期（实际上是日期时间）。我想使用 PROC SQL 来获取最小日期时间，并将 1 年添加到最小值。我试图在一个 PROC SQL 中完成这一切，但一直在摸索，无法让它发挥作用。下面是两个尝试。非常感谢任何建议。

*** GENERATE RANDOM DATES AFTER JAN 1, 2012 AND CREATE DATE/TIME VARIABLE ***;
data have ;
    format date mmddyy10.  dt datetime15.;
    do person_id=100, 200, 300, 400, 500;
    do i = 1 to 100;
        jdate = int(1000 * ranuni(123987));
        date = mdy(1,1,2012) + jdate;
        dt = dhms(date, 0,0,0);
        output;
    end;
    end;
run;

*** TRY1: THIS DOES NOT WORK - GETS MIN DATE/TIME AND REMERGES WITH EVERY RECORD***;
proc sql;
    create table try1 as
    select min(dt) as index_dt  format=datetime15. ,
        (dt + 365*24*60*60) as followup_date  format=datetime15.  
    from have
;
quit;


*** TRY2: USE MIN() IN "HAVING" STATEMENT ***;
*** PROBLEMATIC IF PERSON_ID HAS MIN(DT) OCCUR MULTIPLE TIMES ***;
proc sql;
    create table try2 as
    select person_id,
        dt as index_dt format=datetime15.,  
        (dt + 365*24*60*60) as followup_date  format=datetime15.  
    from have
    group by person_id
    having dt=min(dt) 
;
quit;

Answer 1

尝试使用 "select distinct person_id" 而不是 "select person_id" - 这应该有助于解决重复问题。我不确定 SAS 是否将 365*24*3600 视为每年的正确秒数，所以这也可能是一个促成因素。

Answer 2

我不认为你可以只在过程中做 sql。我想这样做：

*** GENERATE RANDOM DATES AFTER JAN 1, 2012 AND CREATE DATE/TIME VARIABLE ***;
data have ;
format date mmddyy10.  dt datetime15.;
do person_id=100, 200, 300, 400, 500;
do i = 1 to 100;
    jdate = int(1000 * ranuni(123987));
    date = mdy(1,1,2012) + jdate;
    dt = dhms(date, 0,0,0);
    output;
end;
end; 
run;

%macro do_elaboration(ds=);
/*count how many rows has my table */
%let dataset=&ds.;
%let DSID = %sysfunc(open(&dataset., IS));
%let nobs = %sysfunc(attrn(&DSID., NLOBS));
%let rc=%sysfunc(close(&DSID.));
/*loop over the number of rows*/
%do i=1 %to &nobs.;
    /*at each loop get one id*/
    data _NULL_;
       set &ds. (OBS=&i OBS=&i);
       call symputx("id", person_id);
    run;  
    /*with proc sql get the min_dt*/
    proc sql noprint;
       select min(dt) into:min_dt
       from &ds.
       where person_id=&id.
    ;
    quit;
    /*increment the min_dt with the function sas intnx*/
    data have_final_tmp;
        person_id = &id.;
        followup_date = intnx('dtyear',&min_dt,1);
        format followup_date datetime15.;
    run;
    /*put all id with the followup_date in only one dataset*/
    proc append base=have_final data=have_final_tmp force; 
    run;
%end;
%mend do_elaboration;
/*call the macro*/
%do_elaboration(ds=have);

我写代码很快，我没有测试它，所以你应该检查一下，但概念很清楚。

Answer 3

试试这个：

proc sql;
create table try1 as
select 
 min(dt) as index_dt  format=datetime15. ,
 calculated index_dt + 365*24*60*60 as followup_date format=datetime15.
from have
;
quit;

这里的技巧是使用 "calculated" 关键字。

此外，您可能需要执行以下操作来增加年份而不是乘法：

proc sql;
create table try1 as
select 
 min(dt) as index_dt  format=datetime15. ,
 input(compress(
  put(intnx('YEAR', datepart(calculated index_dt),1,'SAMEDAY'),date9.)||":"||
  put(timepart(calculated index_dt),time5.)),datetime15.) as followup_date format=datetime15.
from have
;
quit;

sas proc sql - 获取最小日期并添加 1 年

sas proc sql - get min date and add 1 year

sas

proc-sql