该如何编程

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有如下数据：

客户ID	起始时间	金额	截止时间	是否有效
3631	2013/8/23	2500	2013/8/24	1
3631	2013/8/24	2364.1	2013/8/25	1
3631	2013/8/25	2500	2013/8/26	1
3631	2013/8/26	2364.1	2013/8/27	1
3666	2013/8/23	2500	2013/8/26	0
3666	2013/8/24	2364.1	2013/8/25	1
3666	2013/8/25	2500	2013/8/26	1

以上数据对同一个客户ID下有多条记录，按照客户ID和起始时间进行排序，如果
（1）第二条的起始时间等于第一条的截止时间
（2）第二条的截止时间晚于第二条的起始时间
（3）第一条的起始时间早于第一条的截止时间
这三点均符合的话，则这两条数据的“是否有效”字段均为“1”，否则均为零，都是逐条判断的，比如第一条和第二条判断完以后得出的结果，不影响第二条和第三条的判断结果，以此类推，比如客户ID为3666的三条数据，第一条为0，其他两条均为1。


以上需求应该怎么编程啊，请教给位大神！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：多条记录 怎么编程 如何 记录 怎么编程

很生硬的代码 能做出结果 很难看懂

data one;
input id @6 start yymmdd9.   money @23 end yymmdd9.;
cards;
3631 2013/8/23 2500   2013/8/24
3631 2013/8/24 2364.1 2013/8/27
3632 2013/8/25 2221   2013/8/25
3632 2013/8/26 2121   2013/8/29
;;;
run;
proc sort data=one;
by id;
data two(drop=nstart nend m) ;
set one;
by id;
retain nend nstart m p;


if first.id then do;
if end -start le 0 then do;
p=0; m=.;
output;
end;
else do;
nstart= start;
nend=end;
m=money;
end;
end;

if last.id then do;

if start-nend=0 then do;
if end-start > 0 then p=1;
else p=0;
output;
end;

else  do;
p=0;
output;
end;

if m ne . then do;
id=id;
start=nstart;
money=m;
end=nend;
p=p;
output;
end;

end;
run;

proc sort data=two;
by id start;
run;

还有没有更简洁的呢？比如用宏来做？

sas那个石家庄人 发表于 2015-5-23 16:06
很生硬的代码 能做出结果 很难看懂

data one;

我上次没有表达清楚，我又把条件修改了一下，能不能再帮我看看，麻烦了！

怎么看不见了呢，自己顶一下！

zljwanzi25 发表于 2015-5-24 20:37
怎么看不见了呢，自己顶一下！

没有做过多测试，楼主可以试验一下：

data two;
   set one end=last;
   by id start;
   if not last then set one(firstobs=2 keep=start end rename=(start=next_start end=next_end));
   if last.id then call missing(next_start,next_end);

   retain valid 0;
   if (end=next_start) and (.<start<end) and (.<next_start<next_end) then valid=1;
   else if not last.id then valid=0;
   drop next:;
run;

pobel 发表于 2015-5-25 08:51
没有做过多测试，楼主可以试验一下：

data two;

就是我想要的结果，多谢！
但是我有个问题，就是retain下面的语句，if (end=next_start) and (.<start<end) and (.<next_start<next_end) then valid=1;
为什么next_start为缺失值的数据怎么valid的取值是1.

zljwanzi25 发表于 2015-5-25 16:36
就是我想要的结果，多谢！
但是我有个问题，就是retain下面的语句，if (end=next_start) and (.

例子中，next_start为缺失值的时候都是last.id。
而“else if not last.id then valid=0;” 并没有将valid设成0，所以validity还是保留的上面一条的值。上一条是0，那这一条就是0； 上一条是1，那这条也就是1。