高手帮忙

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

两个基本题目，求高手赐教

1.用sas数据步列出10000以下的素数，写出程序

2.写出计算从自己生日到2000年初经过的天数的程序

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：求高手 高手 帮忙

1.不是学数学的，忘了什么是素数（痛恨高中数学，完全是浪费青春的无聊游戏）

2. 给你写了一个宏程序， 你只要把自己的生日按照（月，日，年）的格式作为参数执行这个宏，就能得到从自己生日到2000年1月1日经过的天数， 记住结果显示在LOG里，不在OUTPUT WINDOW.我的例子用的生日是2001年元旦。

%macro daysto2000(month,day, year);
data _null_;
days=mdy(&month,&day,&year)-mdy(1,1,2000);
put 'days from the birthday to Jan1,2000  =' days;
run;
%mend;
%daysto2000(1,1,2001)

This is the code for your first question:

data test;
    do i=1 to 10000;
        do j=1 to 10000;
            do k=1 to 10000;
                if j*k=i then output;
            end;
        end;
    end;
run;

proc freq data=test; table i/out=tt ;;run;

data tes; set tt; if count =2 then  output; run;

[此贴子已经被作者于2008-7-16 4:09:54编辑过]

看不懂days=mdy(&month,&day,&year)，里面的&符号不是什么意思？

高手解释下

&month表示引用宏参数的值，因为他的程序是放在宏daysto2000里面的。

Bravo!

普通的SAS程序就行了！

data a;
day1=year*365+month*30+day;
day2=2000*365+1*30+7;
day3=day2-day1;
proc print data=a(keep=day3);
run;

其中year 、month 、day分别是你的出生年月日！day3就是经过的天数。

以下是引用路斯菲尓在2008-7-17 10:02:00的发言：

普通的SAS程序就行了！

data a;
day1=year*365+month*30+day;
day2=2000*365+1*30+7;
day3=day2-day1;
proc print data=a(keep=day3);
run;

其中year 、month 、day分别是你的出生年月日！day3就是经过的天数。

新手吧?以上算出来的不准,因为每四年有一个366天.

用mdy(m,d,y)函数即可

data temp;

a=dmy(1,1,2000)-mdy(m,d,y);/*(把你的出生日期按月日年的格式填进去*/

run;

proc print;

run;

显示的就是天数就是出生日期到2000年1月1日的天数(具体是否加1由你自己定,比如你昨天生日,到今天算1天还是2天? SAS计算出来的差是1,呵呵).

[此贴子已经被作者于2008-7-29 10:43:11编辑过]

说一点我对第二个问题的想法。

不知道我是不是正确的理解了lz的问题，如果单独是要计算两个日期之间的天数，可以直接用函数intck就好了

Syntax

INTCK(interval, from, to)

比如一个人的生日是1960年8月15日， 那么到2000年1月1日之间的天数的计算就可以写成

intck('day','15Aug1960'd,'01Jan2000'd)