CREATE OR REPLACE FUNCTION problema9 (
                    fecha DATE
) RETURN VARCHAR2
IS
    actual DATE;
    diferencia NUMBER;
    anyos NUMBER;
    meses NUMBER;
    quedan NUMBER;
    dias NUMBER;
BEGIN
    actual:=SYSDATE;
    diferencia:=MONTHS_BETWEEN(actual, fecha);
    anyos:=TRUNC(diferencia/12);
    quedan:=diferencia - (anyos*12);
    meses:=TRUNC(quedan);
    quedan:=(quedan-meses);
    dias:=TRUNC(quedan*30);
    RETURN 'Tienes: ' || anyos || ' anyos i ' || meses || ' meses i ' || dias || ' dias';
END;
/
SELECT problema9('1/4/2000') FROM dual;