Function compiled with error

Question

can someone please assist
CREATE OR REPLACE FUNCTION HR.is_leap_year (   date_in IN DATE)
    RETURN NUMBER
    AS   
    result NUMBER := 0;   
BEGIN
        SELECT
                    CASE WHEN (
                                MOD(EXTRACT(YEAR FROM date_in), 4) = 0 AND MOD(EXTRACT(YEAR FROM  date_in) ,100) != 0)                               
                                    OR MOD(date_in, 400) = 0   THEN 1   ELSE 0  END AS bit
                    INTO result
         FROM DUAL;
            RETURN result;
END is_leap_year ;
/

Answer 1

ricard888 wrote:
can someone please assistDo not use SQL when SQL is not needed - context switching from the PL/SQL engine to the SQL engine can be expensive.
Do not code in ugly uppercase. There is NO programming standard in use today that states that reserved words need to be coded in uppercase. Have a look at Java standards, .Net standards, Pascal standards, C/C++ standards.
The function should look as follows (assuming it is a wise decision to return a number when a boolean or Y/N flag value is expected) - as already shown previously in the thread:
SQL> create or replace function isLeapYear( d date ) return integer is
  2  begin
  3          return(
  4                  case
  5                          when    ( mod(extract(year from d),4) = 0 and
  6                                    mod(extract(year from d),100) != 0
  7                                  )
  8                                  or
  9                                  mod(extract(year from d),400) = 0 then
10                                  1
11                  else
12                          0
13                  end
14          );
15  end;
16  /
Function created.
SQL>
SQL> select isLeapYear(sysdate) as BIT from dual;
       BIT
         1
SQL> select isLeapYear(sysdate+300) as BIT from dual;
       BIT
         0
SQL>