topic Re: format or function for year in All Things Community

format or function for year

navyaroopa — Thu, 20 Apr 2017 11:49:41 GMT

Hi all,

I wanted a format for displaying year when a variable year is in 2 digits and options yearcutoff is used:

I have done a programing like below mentioned:

data v;
input v $4.;
datalines;
17
20
14
1
;
run;

option yearcutoff=2000;
data v1(drop=catv);
set v;
if length(v)=2 then do;
catv= input("01/01/"||strip(v),ddmmyy8.);
date=year(catv);
end;
end;

run;

I dont want this big code. Is there any format where i can use and can get my year value in 4 digits. Could someone help me with this.

Many Thanks

Re: format or function for year

Kurt_Bremser — Thu, 20 Apr 2017 12:09:52 GMT

date = '2000';
substr(date,4-length(strip(v))+1) = strip(v);

Re: format or function for year

Kurt_Bremser — Thu, 20 Apr 2017 12:11:35 GMT

Example:

data v;
input v $4.;
date = '2000';
substr(date,4-length(strip(v))+1) = strip(v);
datalines;
17
20
14
1
;
run;

proc print data=v noobs;
run;

Result:

Re: format or function for year

navyaroopa — Thu, 20 Apr 2017 12:28:14 GMT

Hi,

I am vry sorry, i have forgot to mention this , I dont want any value to be hardcoded (date='2000'). I am trying to automate the program.

Many Thanks.

Re: format or function for year

RW9 — Thu, 20 Apr 2017 12:56:55 GMT

Sorry, how are you planning on automating a process without all the required information? A year is a four digit number YYYY, if you only have two digits YY, then you will need somehow to specify to the program what the default other two numbers are, is 17 = 1917, 1817, 1717, or 2017? That is information you have to provide as there is now other logical way of knowing what you think those two should be.

Re: format or function for year

Kurt_Bremser — Thu, 20 Apr 2017 13:08:06 GMT

@navyaroopa wrote:

Hi,

I am vry sorry, i have forgot to mention this , I dont want any value to be hardcoded (date='2000'). I am trying to automate the program.

Many Thanks.

You hardcoded your year with

option yearcutoff=2000;

in your initial post. What needs to be automated?

Re: format or function for year

Tom — Thu, 20 Apr 2017 14:04:13 GMT

So if you know that your YR2 variable is between 0 and 99 then you can just use something like this.

yr4 = year(input(put(yr2,z2.)||'0101',yymmdd6.));

Or were you looking to find an algorithm to implement the year cut off functionality yourself with using any informats?

%let yearcutoff=%sysfunc(getoption(yearcutoff));
data want ;
  input yr2 @@ ;
  yr4 = 100*((yr2<mod(&yearcutoff,100))+int(&yearcutoff/100))+yr2;
  yr4_date = year(input(put(yr2,z2.)||'0101',yymmdd6.));
  put (_all_) (=);
cards;
1 20 25 26 27 30
;