【新手求助】字符型变量如何转化成日期型变量

shiyiming

obs id date
1 1 20030908
2 2 20040812
3 3 19991030
4 4 19971102
5 5 20060103

date为8位(yyyymmdd)standard character格式，现在要求新增一列month，value为date距当前时间（2006年9月19日）相差的月份数。

请大侠们帮忙！

shiyiming

以字符形式输入：
[code:e26cd]data aa;
input obs id date $;
cards;
1 1 20030908
2 2 20040812
3 3 19991030
4 4 19971102
5 5 20060103
;
run;

data aa1;
set aa;
x=substr(date,5,2)+0;
month=x-month(today());
run;[/code:e26cd]

以日期格式输入：
[code:e26cd]data aa;input obs id date yymmdd10.;cards;
1 1 20030908
2 2 20040812
3 3 19991030
4 4 19971102
5 5 20060103
;run;
data aa1;
set aa;
today=today();
format date today yymmdd10.;
month=month(date)-month(today());
run;[/code:e26cd]