这是因为你根本还没理解SAS关于日期的存储方式，SAS存日期是以1960年1月1日为0，往后一天加1，1960年1月2日存在系统里的值就是2， 以此类推。

但17590到底是哪年哪月哪日呢，为了方便看，SAS在打印时，往往对值施加一个格式，通过格式将存储的值显示为字符串。

希望以下程序能帮助你理解

data b;
y='20080228';  yy=substr(y,1,4);  mm=substr(y,5,2);   dd=substr(y,7,2);
date=mdy(mm,dd,yy);   date2=date;
format date2 yymmddn8.;
day=weekday(date);run;

proc print;run;

[此贴子已经被作者于2008-3-25 4:11:46编辑过]

谢谢指点，感觉理解了上面你们给的解答，可为什么用上面wolfcrying和olover的程序得出来的是星期五，而事实上20080228却是星期四，为什么？谢谢！

真是晕,SAS是美国人开发的 ,美国人认为(Tuesday)是一个星期的第5天,(Sunday)是每个星期的第1天, 明白了吧

兄弟，我很抱歉！那天回信后便不能再跟贴或发帖子了，除了在cos name论坛还能发帖子外，邮件也不能回了。

搞了两天，系统重装，目前终于恢复正常。

虽然你已经解决的差不多 现仍然根据回忆将此原定跟贴发出：

首先将本程序存入永久数据库

data a;

input m d;

sumd+d;

cards;

 1 31

 2 28

 3 31

 4 30

 5 31

 6 30

 7 31

 8 31

 9 30

10 31

11 30

12 31

;

data sasuser.wxq168;

set a;run;

调用编程

proc data=sasuser.wxq168;

data a;set sasuser.wxq168;if m^=3 then delete;/*当前月份*/

x=mod(sum((2008-y0)*t,sumd-(d-28+1),6+(2008-y0)/4+1),i);/*2008当前年，28当前日,6表示基年1月1日是星期6,

(2008-y0)/4+1)从2000年每4年在2月润1天*/

proc print;run;

结果     02年3月28日

proc data=sasuser.wxq168;

data a;set sasuser.wxq168;if m^=3 then delete;/*当前月份*/

x=floor(mod(sum((2002-y0)*t,sumd-(d-28+1),6+(2002-y0)/4+1),i));

                                                             SAS 系统                   2008年03月28日 星期五 下午08时50分57秒  29

                                         Obs     y0      t     i    m     d    sumd    x

                                          1     2000    365    7    3    31     90     4

03年6月5日

proc data=sasuser.wxq168;

data a;set sasuser.wxq168;if m^=6 then delete;/*当前月份*/

x=floor(mod(sum((2003-y0)*t,sumd-(d-5+1),6+(2003-y0)/4+1),i));

                                                             SAS 系统                   2008年03月28日 星期五 下午08时50分57秒  30

                                         Obs     y0      t     i    m     d    sumd    x

                                          1     2000    365    7    6    30     181    4

08年3月28日

proc data=sasuser.wxq168;

data a;set sasuser.wxq168;if m^=3 then delete;/*当前月份*/

x=floor(mod(sum((2008-y0)*t,sumd-(d-28+1),6+(2008-y0)/4+1),i));/*2008当前年，sumd该年到该日累计天数，

d当月最大天数，28当前日,1基年1号，6表示基年1月1日是星期6,

(2008-y0)/4+1)从2000年每4年在2月润1天*/

proc print;run;

                                                             SAS 系统                   2008年03月28日 星期五 下午08时50分57秒  31

                                         Obs     y0      t     i    m     d    sumd    x

                                          1     2000    365    7    3    31   

WEEKDAY Function

Arguments

date

specifies a SAS expression that represents a SAS date value.

The WEEKDAY function produces an integer that represents the day of the week, where 1=Sunday, 2=Monday, ..., 7=Saturday.

谢谢