又一个偷懒的

不是 ，数据有一两万行呢

2# crackman

data a;
input date $ time $ value@        ;
cards;
04/11/2009 9:31 9.2
04/11/2009 9:32 6.4
04/11/2009 9:33 5.5
04/11/2009 9:34 5.4
04/11/2009 9:35 5.9
;
run;
data b;
input date $ time $ value@        ;
cards;
04/11/2009 9:30 7.2
04/11/2009 9:32 5.4
04/11/2009 9:33 4.5
04/11/2009 9:35 8.4
04/11/2009 9:36 9.9
;
run;
proc sql;
create table result as
select a.date,a.time,b.date,b.time from a inner join b on a.date=b.date and a.time=b.time;
quit;

data a;
input date $ time $ value@        ;
cards;
04/11/2009 9:31 9.2
04/11/2009 9:32 6.4
04/11/2009 9:33 5.5
04/11/2009 9:34 5.4
04/11/2009 9:35 5.9
;
run;
data b;
input date $ time $ value@        ;
cards;
04/11/2009 9:30 7.2
04/11/2009 9:32 5.4
04/11/2009 9:33 4.5
04/11/2009 9:35 8.4
04/11/2009 9:36 9.9
;
run;
proc sql;
create table result as
select a.date,a.time,a.value as valuea,b.date,b.time,b.value as valueb from a inner join b on a.date=b.date and a.time=b.time;
quit;

data a;
input date $ time $ value@        ;
cards;
04/11/2009 9:31 9.2
04/11/2009 9:32 6.4
04/11/2009 9:33 5.5
04/11/2009 9:34 5.4
04/11/2009 9:35 5.9
;
run;
data b;
input date $ time $ value@        ;
cards;
04/11/2009 9:30 7.2
04/11/2009 9:32 5.4
04/11/2009 9:33 4.5
04/11/2009 9:35 8.4
04/11/2009 9:36 9.9
;
run;
data c;
merge a(keep=date time in=a) b(keep=date time in=b);
by date time;
if a=b=1 then output;
run;