请问高手，如何做到这个工作：
年份取首日，月份取首日
比如：
1、年份取首日：如果是2003（数值型），就变成2003-01-01（日期型）
2、月份取首日：如果是2001-01（数值型），就变为2001-01-01（日期型）

我目前的做法为：
1、年份取首日
day_new=year*10000+101;
day_new1=input(day_new,yymmdd10.);format day_new1 yymmdd10.;
2、月份也是类似的处理方法


有没有高效的法子？