CREATE OR REPLACE FUNCTION "GELDIGE_AANWEZIGHEID_TIJD"
(kind_id IN NUMBER,
datum IN DATE,
tijd IN NUMBER)
RETURN BOOLEAN
IS
CURSOR c_aanwezigheden IS
SELECT      "AANWEZIGHEID_TIJD"."AANKOMST" AS "AANKOMST",
     "AANWEZIGHEID_TIJD"."VERTREK" AS "VERTREK"
 FROM     "AANWEZIGHEID_TIJD" "AANWEZIGHEID_TIJD",
     "AANWEZIGHEID" "AANWEZIGHEID"
 WHERE   "AANWEZIGHEID_TIJD"."AANWEZIGHEID_ID"="AANWEZIGHEID"."AANWEZIGHEID_ID"
AND
"AANWEZIGHEID"."DATUM" = datum
AND
"AANWEZIGHEID"."KIND_ID" = kind_id;

begin_tijd TIMESTAMP;
eind_tijd TIMESTAMP;
nieuwe_tijd TIMESTAMP;
BEGIN
FOR aanwezigh IN c_aanwezigheden
LOOP
   IF aanwezigh.vertrek IS NULL THEN
RETURN FALSE;
END IF;
begin_tijd := TO_TIMESTAMP(datum ||' '||aanwezigh.aankomst, 'MM/DD/YYYY HHMI');
eind_tijd := TO_TIMESTAMP(datum ||' '||aanwezigh.vertrek, 'MM/DD/YYYY HHMI');
nieuwe_tijd := TO_TIMESTAMP(datum ||' '||tijd, 'MM/DD/YYYY HHMI');

IF nieuwe_tijd BETWEEN begin_tijd AND eind_tijd THEN
RETURN FALSE;
END IF;
END LOOP;
END;