How to get a complete date from a partial date by comparing with another date

[knveraraju91]

Dear,

I need to get the complete aedate from the partial available aedate. 

If year is same and month is greater than trtdate then add 01 as day to aedate

If year is same and month is less than trtdate then add 15 as day to aedate

If year is and month is same than  aedate=trtdate

if year is greater than year of trtdate then add 01 as day to aedate

Please help. Thank you

output needed;

id    aedate         trtdate
1     2016-11-01   09JUL2016
2    2016-06-15    17JUL2016
3    2016-07-17    17JUL2016
4    2017-01 -01    25NOV2016
;

data one;
input id aedate $ trtdate date9.;
datalines;
1 2016-11 09JUL2016
2 2016-06 17JUL2016
3 2016-07 17JUL2016
4 2017-01 25NOV2016
;

[nehalsanghvi]

Try this code. It works for the scenarios where year is greater or equal to trtdate year, but you have not specified what should happen if aedate year is less than trtdate year:

data one;
input id aedate $ trtdate date9.;
format trtdate date9.;
datalines;
1 2016-11 09JUL2016
2 2016-06 17JUL2016
3 2016-07 17JUL2016
4 2017-01 25NOV2016
;

data two;
set one;
format aedaten yymmdd10.;
aedaten = mdy(substr(aedate,6),01,substr(aedate,1,4));  /* create a date variable with 01 as the default day */
if year(aedaten)=year(trtdate) then do;
	if month(aedaten)<month(trtdate) then aedaten=aedaten+14;
	if month(aedaten)=month(trtdate) then aedaten=aedaten+16;
end;
run;