一个sas 8.2 转化14位字符型时间的data步

shiyiming

　　看了别人的程序，攒出来的东西，大家不准笑话哈。
[code:h0qsg5bg]data shuchu;
set shuru;
fromriqi=substr(datefrom,1,8);
toriqi=substr(dateto,1,8);
fromhh=substr(datefrom,9,2)||':'||substr(datefrom,11,2)||':'||substr(datefrom,13,2);
tohh=substr(dateto,9,2)||':'||substr(dateto,11,2)||':'||substr(dateto,13,2);
format fromtime totime time8.;
format fromdate todate yymmdd10.;
fromdate=input(fromriqi,yymmdd10.);
todate=input(toriqi,yymmdd10.);
fromtime=input(fromhh,time8.);
totime=input(tohh,time8.);
fromsj=fromdate*24*3600+fromtime;
tosj=todate*24*3600+totime;
format fromsj tosj datetime20.;
intev=intck('minute',fromsj,tosj);
keep datefrom dateto fromsj tosj intev;
run;[/code:h0qsg5bg]
　　shuru数据集中有两个14位字符型的时间字段fromdate和todate，格式形如"20130428122805"。运行程序后相应输出sas标准时间类型的字段fromsj和tosj，以及二者的间隔分钟intev。