第一步变换DATE
data crackman;
set  fund000001;
date=mdy(input(substr(date,6,7),f2.),input(substr(date,9,10),f2.),input(substr(date,1,4),f4.);
run;
proc sort data=crackman out=crackman;
by stock date;
run;
proc sql noprint;
create table result as select *,max(date)-min(date) as dif from crackman group by stock;
quit;
data result;
set result;
if dif>=365 then n=1;
else n=0;
proc sql;
create table result1 as select * from result where sum(n)=dif;
quit;
run;
这个里面用一个标记变量，当标记变量值与日期插值想等时候初步判断为连续
但是这个里面的连续是不是你所说的连续？

谢谢啊，我看了程序，太厉害了，结果应该就是我需要的，不过程序还是有些问题

max(date)-min(date);

运行到这里的时候出错，显示减法需要使用数字:
ERROR: Expression using subtraction (-) requires numeric types.

最后为什么要加 where sum(n)=dif 呢？而且这里也出错了，显示ERROR: Summary functions are restricted to the SELECT and HAVING clauses only.

你用input转换一下就可以了

7楼的substr有个小错误，第三个参数应该是截长。其次，关于where的语句所要表达的意思，我来解释一下吧，其实是having语句，该表若每天都有记录即持有则视为连续，因此sum(n)就是持有的天数，dif则是时长，因此天数等于时长就代表了连续，反之两者之间的差则是代表了未持有的天数，若差不为零就不构成了连续。

不过关于楼主的定义我有一些别的看法。

从楼主给到的数据来看，貌似并不是每天都有记录，而date的值都为季度末的最后一天，如果是这样，那date其实就可以作为季度。因此猜想：
1 此数据是在季度末最后一天的状态。有记录则代表此季度fund持有该stock，无记录则代表此季度fund不持有。
2 连续持有4个季度应该是指对于某个fund，只要有连续四个季度及以上持有某stock的记录，则就视为满足条件。季度的连续性应该包括跨年吧。
举例：对于某个fund，持有某个stock的时间点
若为：2005-03-31，2005-06-30，2005-12-31，则该stock不满足条件
若为：2005-06-30，2005-09-30，2005-12-31，2006-01-31，则该stock满足条件
若为：2004-06-30，2005-06-30，2005-09-30，2005-12-31，2006-01-31，虽然第一时间点与第二时间点相差1年，但后四个时间点仍然构成连续四个季度，因此则该stock满足条件

在这样的前提下：

第一步：第二步：第三步：哪位高手有更好的方法，希望指点。

10# yatming
contains '1111'
这个办法不错，学习了

恩
学习了
谢谢10楼的兄弟

谢谢10楼的朋友，你对数据的解释很准确。

但是我刚刚开始学SAS，所以你的程序很多我看不懂。。。

我觉得版主的程序更简单一些...

13# addictedtome
呵呵，如果猜想没错的话，7楼那个max(date)-min(date)>=365的限制就会有些问题了。
举个例子吧：
对于某个fund，持有某个stock的时间点只有两个：2004-03-31，2005-12-31
可以看到对于这个group，max(date)-min(date)虽然大于等于365，但从明细时间点看并不是连续四个月持有。
貌似好像也没有什么汇总函数能在此条件上再进行限制来达到所要的结果。

代码可以慢慢理解，我的想法是构造一个变量来表现历史持有的记录。所以构造了hsy变量，先计算min(date)，然后通过每个observation中date与min(date)的季度差，来对历史持有记录进行更新，使用0，1来标识。最后，要连续四个月持有，则只要历史记录中含有‘1111’的字符串就可以了。

当然这只是我的想法，希望有机会能看到更好的方法来实现。

编辑中、。。。

是不是这个意思，建立一个新变量 mark=dif(year(date)*4+qtr(date))
使得它在某类stock下连续出现3个1即可？

data raw;
input stock$ date : yymmdd10. code;
format date yymmdd10.;
cards;
001 2000-03-30 14
001 2005-03-30 15
001 2005-06-30 15
001 2005-06-30 15
001 2005-09-30 15
001 2005-12-30 15
001 2010-6-30  15
001 2050-6-30  90
001 2050-7-30  90
002 2005-06-30 20
002 2005-09-30 20
002 2005-12-30 20
002 2006-01-30 20
002 2012-01-30 88
003 2006-01-30 88
003 2012-01-30 88
;run;
proc sort data=raw out=b
dupout=dupdata nodupkey;
by  stock date code;
run;
proc sort data=b;by stock date ;run;
data tmp;
set b;
by stock date ;
mark=dif(year(date)*4+qtr(date));
if mark=1 then z+mark;
else z=0;
if z=3 then output;
run;
proc sql;create table tmp1 as
select * from raw as left join tmp
on raw.stock=tmp.stock and raw.code=tmp.code;quit;
data final; merge raw tmp1;by stock date code;
if mark=. then mark=0;drop z;run;

楼上的dif方法很有意思，学习了。。。
而且采用数值计算，极端情况效率上会好很多。

16楼的那个乘以4很妙啊.....

看了这么多高手来写这个程序来讨论确实收获很多
不过首先我得澄清我对数据集的认识可能和大家不一样

我以为DATE是每一天的值 而不是每一个季度的值

所以在写程序的时候，我是计算了一个基金 持有某一个股票，持有的日期中最近时间和最远时间的差值，同时对观察对象的每一天进行标记，如果差值大于365天，那么标记为1，如果差值为365，但是实际上没有365天，例如只有两天的时候，刚好差值为366，但是只有两天啊，所以我加了一个标记变量等于差值，同时差值大于365，那么就输出得到结果数据集，我是这样理解的

yatming兄弟提出几个错误之处，我很感谢，第一个就是sql 里面的sum(n)=dif这个是有问题，substr字符分切函数来说，确实第三个参数是字长，但是如果按照我那样写，也可以得出结果，可能是一个巧合吧

后面的程序我觉得大家写的很不错
前提是对数据集的理解存在偏差

恩，如果是有每天数据，楼上的sum(n)=dif来判断连续也是很不错的方法。
16楼那个乘以4的原因确实很有意外的收获，呵呵。

14# yatming

是的，说的很有道理，我开始也没注意这点。。。

16# sushe1527

我是不是可以改成把if z=3 then output,改成if z>=3 then output? 因为我需要返回一个值当持有4个季度或超过4个季度的。

z=3和z>=3所表示的stock和code是一样的，都是4个季度或者以上的
但是 "=" 比 ">=" 产生的数据会少一些，加上后面的匹配，速度会快一点~~

23# sushe1527

下面是我按你的程序写的：

首先import data "fund"。

data fund1;
set fund;
date=mdy(input(substr(date,6,2),f2.),input(substr(date,9,2),f2.),input(substr(date,1,4),f4.));     /*因为我的数据里面的date是字符属性，不能用format yymmdd改*/
run;

proc sort data=fund1 out=fund01;
by stock date fund_code;
run;

proc sort data=fund01;
by stock date;
run;

data tmp;
set fund01;
by stock date;
mark=dif(year(date)*4+qtr(date));
if mark=1 then z+mark;
else z=0;
if z=3 then output;
run;


proc sql;
create table tmp1 as
select * from fund1 as left join tmp
on fund1.stock=tmp.stock and fund1.fund_code=tmp.fund_code;
quit;
data final;
merge fund1 tmp1;by stock date fund_code;
if mark=. then mark=0;drop z;
proc print data=final;
run;

出现了这个几个问题：
656  on fund1.stock=tmp.stock and fund1.fund_code=tmp.fund_code;
WARNING: Variable stock already exists on file WORK.TMP1.
WARNING: Variable date already exists on file WORK.TMP1.
WARNING: Variable fund_code already exists on file WORK.TMP1.
WARNING: Variable number_of_shares already exists on file WORK.TMP1.
WARNING: Variable proportion already exists on file WORK.TMP1.

并且最后处理的final，mark值全部都是0，但是我目测至少好几只股票都被某个基金连续持有了4个季度..

是不是我的程序哪里写错了.....？

谢谢各位热心的朋友，最后按照sushe1527的方法，数据处理成功了！