[原创]解决SAS8 XX版时间问题（附程序）

4191

收藏 2006-11-25

在网上比较容易找到一个破解了时间限制的SAS8版本，但是这版本用不了EM而且today函数的值也是不正确的。但是平常我们是需要用到时间值的，我写了个程序来弥补这个不足，用sas自身的功能来实现today函数的功能：
<o:p></o:p>
用法：
1在程序的开始加入以下代码：
 %include “path”;
path 是你存放程序的物理绝对路径。如果你放在d:\ 则path就是d:\todayV1.sas了。
注意：这个程序会清除以前的output的，所以最好是先运行了程序再运行其他程序。
2就是在开SAS的时候运行，把这个程序放到SAS的自动批处理文件中，这样就不会有清除有用output的危险了。
<o:p></o:p>
这个程序会产生3个macro变量,如下表：
 name : value <o:p></o:p>
 &today_date : 25Nov2006 <o:p></o:p>
 &today : "25Nov2006"d <o:p></o:p>
 &date : 20061125 <o:p></o:p>
举例说明使用方法：
1． 生成按日子排列的dataset；
data xx_&date;
dataset的名字就是按xx_20061125的方式排列了。
2．生成连续N个月的最后一天的日子；代码如下：
%macro month(N);<o:p></o:p>
data _null_;<o:p></o:p>
%do i = 0 %to %eval(&n.);<o:p></o:p>
call symput ("month&i.",put(intnx("month",&today.,-&i,"end"),yymmddn8.));<o:p></o:p>
%end; <o:p></o:p>
run;<o:p></o:p>
%mend;<o:p></o:p>
<o:p></o:p>
%month(2);

74184.rar
大小:(920 Bytes)

马上下载

本附件包括：

todayV1.sas

程序版权没有，翻版不究。
不过，希望大家能保留我在程序中的版权信息。谢谢

[此贴子已经被作者于2006-11-27 17:27:43编辑过]

扫码加我拉你入群

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

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

全部回复

sakunamary

2006-11-25 20:45:00

/*********************************************************************/ /** Sakunamary Xiao <a href="mailto:Copyright@2006" target="_blank" >Copyright@2006</A> All reserved **/ /** this SAS program is create by Sakunamary Xiao **/ /** user can copy ,use and deliver this program **/ /** freely . Please keep the message when the **/ /** program is delivered. **/ /*********************************************************************/ /** Author : Sakunamary Xiao **/ /** Create date : 25 nov ,2006 **/ /** version : 1.0 **/ /** description : this program is for the user who can not get **/ /** the correct value from function today(). this pro- **/ /** will generate three macro variables :&today_date **/ /** &today and & date.these three varialbes layout is: **/ /** name : value **/ /** &today_date : 25Nov2006 **/ /** &today : "25Nov2006"d **/ /** &date : 20061125 **/ /*********************************************************************/ dm out 'cls'; options noxwait; /*** set the temp data to get the system date ***/ data temp; x=1; run; /*** output to a temp text file to covertion ***/
proc printto print="c:\today.txt";quit; proc print data=temp;run; proc printto;quit;
data _null; infile "c:\today.txt"; input time $109-126; if _n_ = 1 ; month = substr(time,1,3); day = substr(time,10,2); year = substr(time,14,4); date = compress(day||month||year); call symput('today_date',date); call symput('today',compress('"'||date||'"'||'d')); call symput('date',put(&today.,yymmddn8.)); run; /*** clean up the temp file ***/
data _null_; x ' del c:\today.txt'; run;
proc sql;drop table temp;quit; dm out 'cls'; /******* end of program *********/
 /******* programe example **************/ *** get the last month last day; /* data _null_; call symput ("var1",put(intnx("month",&today.,-1,"end"),yymmddn8.)); call symput ("var2",put(intnx("month",&today.,-1,"end"),date9.)); run;
the var1 value is 20061031. the var2 value is 31OCT2006. */

扫码加我拉你入群

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

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

sakunamary

2006-11-25 20:47:00

公布一下源代码～～
整个程序的原理就是利用output中有显示正确的系统时间与日期，将正确的系统时间读进去然后再赋给macro变量。

扫码加我拉你入群

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

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

sakunamary

2006-11-27 14:47:00

update the new version of today macro :
I check the sas system find that there is as system-generated view named sashelp.vmacro . in this view there is a macro variable named SYSDATE9. the value seem to be the system correct time .I find it in my company computer ,the SAS version is 9.1.3 and of course the software is not a XX version .If the macro variable can be found in SAS 8 XX version than the %toady() can be change to and very easy coding.
here is the %today() source code V2
%macro today();
%local today;
%let today = "&sysdate9."d;
&today
%mend;

this version macro can be use as function today like this :
xx=%today();
just the same as 
xx=today();

Is it quite easy?

扫码加我拉你入群

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

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

sakunamary

2006-11-28 16:35:00

这是第3次更新.改善了代码和修改了一个较大的BUG,这个程序要求SAS SESSION的生成时间较低.
%macro today(null); %local today ; %global time1 ; %local time2; %local int; %if &time1. = %then %do ; %let today = "&sysdate9."d; %let time1 = %sysfunc(date(),date9.); %end; %else %do ; %let time2 = %sysfunc(date(),date9.); %if %eval(%substr(&time1.,1,2)) > %eval(%substr(&time2.,1,2)) %then %do; %put ERROR :The arguement of %totay() is out of range.; %put NOTES :%Today() return the value of SAS session create date.; %let today = "&sysdate9."d; %end; %else %do; %let int = %sysfunc(intck(day,"&time1"d,"&time2"d)); %let today = %sysfunc(intnx(day,"&sysdate9."d,&int.),date9.); %end; %end;
&today %mend today ;