oracle 闰年判断

//闰年最直接的判断是:能被4整除且不能被100整除，或者能被400整除的年份 create or replace procedure pro_leap_year(year_in in number) as v_mod1 number(4) :=mod(year_in,4); v_mod2 number(4) :=mod(year_in,100); v_mod3 number(4) :=mod(year_in,400); begin if ((v_mod1=0 and v_mod2<>0) or v_mod3=0) then dbms_output.put_line(year_in||' is a leap year'); else dbms_output.put_line(year_in||' is not a leap year'); end if; exception when others then dbms_output.put_line(sqlerrm); end pro_leap_year; / SQL> exec pro_leap_year(2010); 2010 is not a leap year PL/SQL procedure successfully completed // SQL> exec pro_leap_year(2000); 2000 is a leap year PL/SQL procedure successfully completed // //关于闰年平年，下面有一个比较全面的解释： //在公历（格里历）纪年中，有闰日的年份叫闰年，一般年份365天，闰年为366天。 //由于地球绕太阳运行周期为365天5小时48分46秒（合365.24219天）即一回归年，公历把一年定为365天。 //所余下的时间约为四年累计一天，加在二月里，所以平常年份每年365天，二月为28天，闰年为366天，二月为29天。 //因此，每400年中有97个闰年，闰年在2月末增加一天，闰年366天。 //闰年的计算方法：公元纪年的年数可以被四整除，即为闰年； //被100整除而不能被400整除为平年；被100整除也可被400整除的为闰年。 //如2000年是闰年，而1900年不是。 // //我们所关心的是怎么样计算指定的一个年份是否是闰年： //从上面的描述中，我们知道： //如果一年中2月份有29天，那么这一年就是闰年，否则是平年 SQL> drop procedure pro_leap_year; Procedure dropped // create or replace procedure pro_leap_year(year_in in number) as v_year_in varchar2(10) :=to_char(year_in)||'0229'; v_date date; begin //这里将拼接的字符串转换为日期，并赋值给一个日期类型的变量， //其实就是为了和日期类型进行比较，隐式的比较，比较你输入的年份中2月是否含有29日这一天 v_date :=to_date(v_year_in,'yyyy-mm-dd'); dbms_output.put_line(year_in||' is a leap year'); exception when others then dbms_output.put_line(year_in||' is not a leap year'); end pro_leap_year; / SQL> exec pro_leap_year(2010); 2010 is not a leap year PL/SQL procedure successfully completed // SQL> exec pro_leap_year(2000); 2000 is a leap year PL/SQL procedure successfully completed // SQL> exec pro_leap_year(2005); 2005 is not a leap year PL/SQL procedure successfully completed // SQL> exec pro_leap_year(2100); 2100 is not a leap year PL/SQL procedure successfully completed // //我们也可以用一条select语句来判断： SQL> select case 2 when to_char(last_day(to_date(&year||'02','yyyymm')),'dd')='29' 3 then 'the year you input is a leap year' 4 else 'the year you input is not a leap year' 5 end is_leap_year 6 from dual; Enter value for year: 2050 old 2: when to_char(last_day(to_date(&year||'02','yyyymm')),'dd')='29' new 2: when to_char(last_day(to_date(2050||'02','yyyymm')),'dd')='29' IS_LEAP_YEAR ------------------------------------- the year you input is not a leap year // SQL> / Enter value for year: 2000 old 2: when to_char(last_day(to_date(&year||'02','yyyymm')),'dd')='29' new 2: when to_char(last_day(to_date(2000||'02','yyyymm')),'dd')='29' IS_LEAP_YEAR --------------------------------- the year you input is a leap year // SQL> / Enter value for year: 2012 old 2: when to_char(last_day(to_date(&year||'02','yyyymm')),'dd')='29' new 2: when to_char(last_day(to_date(2012||'02','yyyymm')),'dd')='29' IS_LEAP_YEAR --------------------------------- the year you input is a leap year // SQL> / Enter value for year: 1998 old 2: when to_char(last_day(to_date(&year||'02','yyyymm')),'dd')='29' new 2: when to_char(last_day(to_date(1998||'02','yyyymm')),'dd')='29' IS_LEAP_YEAR ------------------------------------- the year you input is not a leap year //

原帖:http://topic.csdn.net/u/20110509/13/367c4dea-6aa2-4264-9472-cd9ee7cdc86f.html?seed=1222845748&r=73253860#replyachor