CREATE OR REPLACE FUNCTION isEven(in_liczba IN NUMBER)
RETURN VARCHAR

IS

BEGIN
  IF MOD(in_liczba, 2) = 0 THEN
    RETURN 'Parzysta';
  ELSE
    RETURN 'Nieparzysta';
  END IF;
END;
/

SHOW ERRORS

SELECT isEven(10) FROM dual;

-- Tworzenie pakietu funkcji

CREATE OR REPLACE PACKAGE paciefun AS
  FUNCTION isEven(in_liczba IN NUMBER) RETURN VARCHAR;
  FUNCTION isEven(in_wartosc IN VARCHAR) RETURN VARCHAR;
END paciefun;
/

CREATE OR REPLACE PACKAGE BODY paciefun AS
  FUNCTION isEven(in_liczba IN NUMBER)
  RETURN VARCHAR

  IS

  BEGIN
    IF MOD(in_liczba, 2) = 0 THEN
      RETURN 'Parzysta';
    ELSE
      RETURN 'Nieparzysta';
    END IF;
  END isEven;

  FUNCTION isEven(in_wartosc IN VARCHAR)
  RETURN VARCHAR

  IS

  BEGIN
    RETURN 'Nie jest to liczba';
  END isEven;
END paciefun;
/

SELECT paciefun.isEven(10) FROM dual;
SELECT paciefun.isEven('test') FROM dual;





----------------------------------

CREATE OR REPLACE FUNCTION jakMiJest(in_data_ur IN VARCHAR)
RETURN VARCHAR

IS
  wynik VARCHAR(200) := '';
  dni_zycia NUMBER;
  fizyczny NUMBER;
  emocjonalny NUMBER;
  intelektualny NUMBER;
BEGIN
  dni_zycia := TRUNC(SYSDATE) - TO_DATE(in_data_ur, 'DD-MM-YYYY');

  fizyczny := ROUND(sin(( mod(dni_zycia, 23) / 23) * 2 * 3.141592) * 100);
  emocjonalny := ROUND(sin(( mod(dni_zycia, 28) / 28) * 2 * 3.141592) * 100);
  intelektualny := ROUND(sin(( mod(dni_zycia, 33) / 33) * 2 * 3.141592) * 100);

  wynik := 'Fizyczny(' || fizyczny || ')%' || 'Emocjonalny(' || emocjonalny || ')%' || 'Intelektualny(' || intelektualny || ')%';
  RETURN wynik;
END;
/

SHOW ERRORS

SELECT jakMiJest('06-03-2019') FROM dual;