CREATE OR REPLACE FUNCTION PROBLEMA14(f1 DATE, f2 DATE)
                               RETURN NUMBER
IS
   anyos NUMBER;
   meses NUMBER;
BEGIN
   meses:=MONTHS_BETWEEN(f1, f2);
   anyos:=meses/12;
   anyos:=TRUNC(anyos,0);
   IF (anyos<0) THEN
      anyos:=anyos*(-1);
   END IF;
   RETURN anyos;
END;
/

SELECT PROBLEMA14(SYSDATE,'03/05/2000')
FROM DUAL;

DECLARE
res NUMBER;
BEGIN
res:=problema14(SYSDATE,'03/05/2000');
DBMS_OUTPUT.PUT_LINE(res);
END;
/