Functions and CALL Routines
DNTOG Function
将中国农历日期转换成公历日期
Category: 日期函数 Date
DNTOG(NYEAR,NMONTH,NDAY,YUNYUE);
NYEAR 中国农历年份,赋值范围:1968-2031
NONTH 中国农历月份,赋值范围:1-12
NDAY 中国农历日期,赋值范围:1-30
YUNYUE 是否农历闰月,赋值范围:0 or1 ,0表示否,1表示是。
…
代码示例1,把中国农历日期转化为公历日期
options cmplib=(sasuser.datetr);
proc fcmp;
Gday= dNtoG(1968,7,11,1);
Gday2=dNtoG(1968,7,11,0);
put Gday= date9.;
put Gday2= date9.;
run;
quit;
结果:
The FCMP Procedure
Transfered date : 03SEP1968
Transfered date : 04AUG1968
Gday=03SEP1968
Gday2=04AUG1968
代码例2,想知道2009年中国农历春节是哪一天吗?
options cmplib=(sasuser.datetr);
data _null_;
Gday=dNtoG(2009,1,1,0);
put "2009 Chinese Spring Festival day is " Gday date9.;
put "GONG XI FA CAI !";
run;
LOG中显示:
Transfered date : 26JAN2009
2009 Chinese Spring Festival day is 26JAN2009
GONG XI FA CAI !
注:如对此函数感兴趣,请邮件索取自定义函数DNTOG()。
博主,你好!看了你的日志,对你的农历转阳历自定义函数很感兴趣,正好我的数据处理需要用到,还希望你不吝赐教,发给我一份,非常感谢!我的邮箱wuyu84@gmail.com
已发邮件,接收。
博主,你好!看了你的日志,对你的农历转阳历自定义函数很感兴趣,正好我的数据处理需要用到,还希望你不吝赐教,发给我一份,非常感谢!我的邮箱jiwenli007@163.com
谢谢!!!
Hi,能否拜读一下你的这段代码,以前没写过自定义函数,都是用宏实现,感觉挺好玩的。haiyangzhang83@yahoo.com.cn