求每条记录出现的次数和时间。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有一个程序问题想请教大家，以下是原始数据：

    number                date
    600203                2012-01-01
    600203                2012-01-15
    600204                2012-01-14
    600205                2012-01-04
    600205                2012-01-19
    600206                2012-01-03
    600206                2012-01-28
    600207                2012-01-05
    600208                2012-01-09


要求结果如下：

   number                date1                date2         cishu
    600203                2012-01-01   2012-01-15    2
    600204                2012-01-14                         1
    600205                2012-01-04   2012-01-19    2
    600206                2012-01-03   2012-01-28    2
    600207                2012-01-05                         1
    600208                2012-01-09                         1

次数的计算已经解决了，用if first 和 if last，

想知道时间怎么计算。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Number First date 原始数据 Last number 记录 程序

data a;
length number $6;
informat date yymmdd10.;
input number
      date;
format date yymmdd10.;
cards;
600203                2012-01-01
600203                2012-01-15
600204                2012-01-14
600205                2012-01-04
600205                2012-01-19
600206                2012-01-03
600206                2012-01-28
600207                2012-01-05
600208                2012-01-09
;
proc sort data=a;
by number date;
run;

data result;
retain number;
format date1
       date2 yymmdd10.;
do _n_=1 by 1 until(last.number);
  set a;
  by number;
  if _n_=1 then do;date1=date;date2=. ;end;
end;
if _n_ ge 2 then date2=date ;
cishu=_n_;
drop date;
run;

/*sql*/
proc sql noprint;
create table result2 as
select number,min(date) as date1 format=yymmdd10.,
(case when(count(*) ge 2) then max(date) else . end )as date2 format=yymmdd10.,count(*) as cishu
from a
group by 1;
quit;

data ex;
input num date:$10.;
cards;
    600203                2012-01-01
    600203                2012-01-15
    600204                2012-01-14
    600205                2012-01-04
    600205                2012-01-19
    600206                2012-01-03
    600206                2012-01-28
    600207                2012-01-05
    600208                2012-01-09
        ;
        run;
data _null_;
length date1 $10 date2 $10;
if _n_=1 then do;
declare hash h();
h.definekey('num');
h.definedata('num','date1','date2','cishu');
h.definedone();
end;
set ex;
if h.find() ne 0 then do;
date1=date;
cishu=1;
h.add();
end;
else do;
date2=date;
cishu=cishu+1;
h.replace();
end;
h.output(dataset:'ex1');
run;

只会有date1 和date2 ?
还是出现一次就算一次,会有date3  date4  date5...?
如果是前者的话,很简单...如果是后者,就稍复杂点.

proc transpose

非常感谢兄弟的解答，不过是后者~~~

sailingyf 发表于 2012-7-11 00:36
只会有date1 和date2 ?
还是出现一次就算一次,会有date3  date4  date5...?
如果是前者的话,很简单...如 ...

是出现一次就算一次，会有date3， date4， date5~~~

zhufengyuan 发表于 2012-7-11 09:31
是出现一次就算一次，会有date3， date4， date5~~~

我只会笨方法....先 求出最大会出现几个,然后再用数组赋值...

proc sql;
create table a;
select num, count(num) as no
from b
group by num;
proc sql;
select max(no) into n
from a;
quit;

do result;
set b;
by num;
retain no;

array date date(1) - date(n);
if first.num then no=0;
no=no+1;
do i = 1 to &n.;
if i = no then date(i) = date;
end;
if last.num;
run;
你试试，我还没调试过

sailingyf 发表于 2012-7-11 09:54
我只会笨方法....先 求出最大会出现几个,然后再用数组赋值...

proc sql;

试过了，程序不能运行~~~

do result;
set b;
by num;
retain no;——这一步没看懂

array date date(1) - date(n);——好像不能这么写的吧？