年代の書式定義(2)

昨日書いたコードは難しく考えすぎました。素直に数十年先まで定義するのがシンプルです。

view plainprint?

1. options mprint source;  
2.   
3. proc format;  
4.  value $DATE8_F  
5.   "19900401" - "19910331" = "19900401 - 19910331"  
6.   "19910401" - "19920331" = "19910401 - 19920331"  
7.   "19920401" - "19930331" = "19920401 - 19930331"  
8.   "19930401" - "19940331" = "19930401 - 19940331"  
9.   "19940401" - "19950331" = "19940401 - 19950331"  
10.   "19950401" - "19960331" = "19950401 - 19960331"   
11.   "19960401" - "19970331" = "19960401 - 19970331"  
12.   "19970401" - "19980331" = "19970401 - 19980331"  
13.   "19980401" - "19990331" = "19980401 - 19990331"  
14.   "19990401" - "20000331" = "19990401 - 20000331"   
15.   "20000401" - "20010331" = "20000401 - 20010331"  
16.   "20010401" - "20020331" = "20010401 - 20020331"  
17.   "20020401" - "20030331" = "20020401 - 20030331"  
18.   "20030401" - "20040331" = "20030401 - 20040331"  
19.   "20040401" - "20050331" = "20040401 - 20050331"  
20.   "20050401" - "20060331" = "20050401 - 20060331"  
21.   "20060401" - "20070331" = "20060401 - 20070331"   
22.   "20070401" - "20080331" = "20070401 - 20080331"  
23.   "20080401" - "20090331" = "20080401 - 20090331"  
24.   "20090401" - "20100331" = "20090401 - 20100331"  
25.   "20100401" - "20110331" = "20100401 - 20110331"  
26.   "20110401" - "20120331" = "20110401 - 20120331"  
27.   "20120401" - "20130331" = "20120401 - 20130331"   
28.   "20130401" - "20140331" = "20130401 - 20140331"  
29.   "20140401" - "20150331" = "20140401 - 20150331"  
30.   "20150401" - "20160331" = "20150401 - 20160331"  
31.   "20160401" - "20170331" = "20160401 - 20170331"  
32.   "20170401" - "20180331" = "20170401 - 20180331"  
33.   "20180401" - "20190331" = "20180401 - 20190331"  
34.   "20190401" - "20200331" = "20190401 - 20200331"   
35.   "20200401" - "20210331" = "20200401 - 20210331"   
36.   "20210401" - "20220331" = "20210401 - 20220331"   
37.   "20220401" - "20230331" = "20220401 - 20230331"  
38.   "20230401" - "20240331" = "20230401 - 20240331"  
39.   "20240401" - "20250331" = "20240401 - 20250331"   
40.   "20250401" - "20260331" = "20250401 - 20260331"  
41.   "20260401" - "20270331" = "20260401 - 20270331"  
42.   "20270401" - "20280331" = "20270401 - 20280331"  
43.   "20280401" - "20290331" = "20280401 - 20290331"  
44.   "20290401" - "20300331" = "20290401 - 20300331"  
45.  ;  
46. run;  

options mprint source;

proc format;
 value $DATE8_F
  "19900401" - "19910331" = "19900401 - 19910331"
  "19910401" - "19920331" = "19910401 - 19920331"
  "19920401" - "19930331" = "19920401 - 19930331"
  "19930401" - "19940331" = "19930401 - 19940331"
  "19940401" - "19950331" = "19940401 - 19950331"
  "19950401" - "19960331" = "19950401 - 19960331" 
  "19960401" - "19970331" = "19960401 - 19970331"
  "19970401" - "19980331" = "19970401 - 19980331"
  "19980401" - "19990331" = "19980401 - 19990331"
  "19990401" - "20000331" = "19990401 - 20000331" 
  "20000401" - "20010331" = "20000401 - 20010331"
  "20010401" - "20020331" = "20010401 - 20020331"
  "20020401" - "20030331" = "20020401 - 20030331"
  "20030401" - "20040331" = "20030401 - 20040331"
  "20040401" - "20050331" = "20040401 - 20050331"
  "20050401" - "20060331" = "20050401 - 20060331"
  "20060401" - "20070331" = "20060401 - 20070331" 
  "20070401" - "20080331" = "20070401 - 20080331"
  "20080401" - "20090331" = "20080401 - 20090331"
  "20090401" - "20100331" = "20090401 - 20100331"
  "20100401" - "20110331" = "20100401 - 20110331"
  "20110401" - "20120331" = "20110401 - 20120331"
  "20120401" - "20130331" = "20120401 - 20130331" 
  "20130401" - "20140331" = "20130401 - 20140331"
  "20140401" - "20150331" = "20140401 - 20150331"
  "20150401" - "20160331" = "20150401 - 20160331"
  "20160401" - "20170331" = "20160401 - 20170331"
  "20170401" - "20180331" = "20170401 - 20180331"
  "20180401" - "20190331" = "20180401 - 20190331"
  "20190401" - "20200331" = "20190401 - 20200331" 
  "20200401" - "20210331" = "20200401 - 20210331" 
  "20210401" - "20220331" = "20210401 - 20220331" 
  "20220401" - "20230331" = "20220401 - 20230331"
  "20230401" - "20240331" = "20230401 - 20240331"
  "20240401" - "20250331" = "20240401 - 20250331" 
  "20250401" - "20260331" = "20250401 - 20260331"
  "20260401" - "20270331" = "20260401 - 20270331"
  "20270401" - "20280331" = "20270401 - 20280331"
  "20280401" - "20290331" = "20280401 - 20290331"
  "20290401" - "20300331" = "20290401 - 20300331"
 ;
run;