※ 引述《joyce618 (joy)》之铭言： : ------------------------------------------------------------------------ : [软体程式类别]: : SAS : [程式问题]: : 资料处理 : [软体熟悉度]: : 低(1~3个月) : [问题叙述]: : 真的很不好意思，因为做sas作业常常好不容易解决这个问题 : 另外一个问题要出现了 : 还是要麻烦各位大人的帮忙了 : 我想要比对两个档案 : 一个档案我把格式整理成 : code name year quarterend yr month date : XXXX 甲公司 2010 3 2010 4 15 : XXXX 甲公司 2010 6 2010 7 17 : XXXX 甲公司 2010 9 2010 10 16 : XXXX 乙公司 2010 3 2010 4 13 : XXXX 乙公司 2010 6 2010 7 18 : XXXX 乙公司 2010 9 2010 10 19 : ...... : 这个档案中，yr month date表示财务报表公告日，而year quarterend则代表公告 : 的财报数字是属於哪一个季度的。 : 另外一个档案格式则为 : code name yr month date returnrate : XXXX 甲公司 2010 1 1 aaa : XXXX 甲公司 2010 1 2 bbb : XXXX 甲公司 2010 1 3 ccc : XXXX 甲公司 2010 1 4 ddd : ..... : XXXX 乙公司 2010 1 1 aaa : XXXX 乙公司 2010 1 2 bbb : XXXX 乙公司 2010 1 3 ccc : XXXX 乙公司 2010 1 3 ccc : ..... : 第二份档案内容是每天的报酬 : 现在我想要先合并这两份资料，然後以财务报表公告日为准，抓出前後20笔的资料，共41 : 笔资料进行加总。 : 我原来是打算比对财报公告日後，设一个变数seq，利用seq+1;，找出财务报表公告日往 : 後21笔资料，但是财务报表公告日往前20笔资料，我就不知道该如何抓出来了… : 不好意思，一直有问题麻烦大家，非常谢谢各位大人的帮忙^^ : ----------------------------------------------------------------------------- 这个问题之前好像有问过？ 以不用sql或macro语法的前提之下 可以这样做 假设第一份档案叫a 第二份档案叫b 第一步 先把a和b都sort by公司代号 相关的年月日 第二步 给排序好的b档案中每一笔资料一个流水序号叫serial 第三步 使用下面的程式码 data final; retain totalreturn; set a(rename=(code=a_code name=a_name year=a_year quarterend=a_quarterend yr=a_yr month=a_month date=a_date)); totalreturn=0; do until(flag=1); set b(rename=(code=b_code name=b_name yr=b_yr month=b_month date=b_date serial=b_serial)); if b_yr=a_yr and b_month=a_month and b_date=a_date then do until(flag=1); set b; if b_serial-20 <=serial<=b_serial+20 then do; totalreturn=totalreturn+returnrate; (1) end; if serial=b_serial+20 then do; flag=1; (2) end; else flag=0; end; end; keep a_year a_quarterend code name yr month date returnrate totalreturn; run; 注意!! 1.如果把 output; 这几个字放在 (1) 的地方，则final会把相关的每季前後共41笔资料 都保留下来同时计算加总（不过加总只有每一季相关资料的的最後一笔才是对的） 2.如果把 output; 这几个字放在 (2) 的地方，则final里面只会有a档案中每家公司每一 季的加总数据 我不确定你是要抽出那41笔资料呢，还是只要有一个加总数字就好，所以只好这样表示 另外，因为不能用sql和macro，所以这个写法落落长有点绕让人有点不满意，不知道有 没有人有更好的想法@@ 大概是这样，你再研究看看吧^^ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 111.243.15.195 ※ 编辑: west1996 来自: 111.243.15.195 (06/09 00:18)