2014年2月14日金曜日

日本語の西暦・和暦を日付値に変換する。




日本語で入力された西暦・和暦を日付値に変換する方法を紹介します。



サンプルデータ作成

data DT1;
   length C1-C4 $30.;

   C1 = "2000/02/01";
   C2 = "2000年2月1日";
   C3 = "H12/02/01";
   C4 = "平成12年2月1日";
run;





  • 日本語を含む和暦は「JNENGO」というインフォーマットが用意されてるので変換が楽。
  • 日本語を含む西暦は漢字の「年」「月」「日」をKTRANSLATE関数で「/」に置換してから変換するなど工夫が必要。
 *** 「2000/02/01」 ;
  N1 = input( C1, yymmdd10. ) ;

 *** 「2000年2月1日」 ;
  N2 = input( ktranslate(C2,"/","年","/","月","","日") ,yymmdd10.) ;

 *** 「H12/02/01」 ;
  N3 = input( C3, nengo9. ) ;

 *** 「平成12年2月1日」 ;
  N4 = input( C4, jnengo32. ) ;



0 件のコメント:

コメントを投稿