data a;
        input id:$2. year:4. tme:date9.;
        cards;
a         2007     01mar2007
a          2007     05mar2007
a          2008      01apr2008
a         2008      05apr2008
a         2009       01jan2009
a        2009       04jan2009
b         2007     01mar2007
b        2007     05mar2007
b       2008      01apr2008
b        2008      05apr2008
b        2009       01jan2009
b       2009       04jan2009
;
run;

proc sort data=a out=b;
        by id year tme;
run;

data c;
        set b;
        by id year tme;
        format tme date9.;
        if first.year;
run;
试试看

I give a SQL approach. The results should be the same as that from 醉_清风's. See below,

data a;
        input id:$2. year:4. tme:date9.;
        cards;
a         2007     01mar2007
a          2007     05mar2007
a          2008      01apr2008
a         2008      05apr2008
a         2009       01jan2009
a        2009       04jan2009
b         2007     01mar2007
b        2007     05mar2007
b       2008      01apr2008
b        2008      05apr2008
b        2009       01jan2009
b       2009       04jan2009
;
run;

proc sql;
   select id, year, min(tme) as min_time format=yymmdd10.
   from a
   group by 1,2
   order by 1,2
    ;
    quit;

又学习了 谢谢bobguy

清风的code修改如下 也可以 得到 正确结果。 只是我习惯这样写，顺便说下。

data c;
        set b;
        by id year ;
        format tme date9.;
        if first.year;
run

都是很好的方法，谢谢楼上所有的高人了！