PostgreSQL - Funcion martes13

CREATE OR REPLACE  FUNCTION  martes13( _year integer)

    	RETURNS TABLE (fecha date) AS

    $BODY$

    DECLARE

	_cont integer=1;

	_fecha date;

	_dow text;

	_dia_buscado text='tuesday';-- día de la semana que queremos conocer

    BEGIN

	create temp table _martes (fecha date); -- tabla temporal para guardar los resultados positivos

	loop

	_fecha=cast('13/'||_cont||'/'||_year as date); -- armado de la fecha a evaluar sabemos que dos parametros son fijos, dia y año

	_dow= trim((select to_char(_fecha, 'day'))); -- calculo del dia de la semana  de la fecha a consultar el resultado lo da en ingles

		if (_dow=_dia_buscado) -- comparación entre el día que buscamos y el día de la semana del 13 de cada mes

		then

		insert into _martes (fecha) values (_fecha); -- almacenamiento del resultado positivo

		end if;

		if _cont=12 -- los doce meses del año en el mes 13 se sale

		then

		EXIT;

		else

		_cont=_cont+1;

		end if;

	end loop;

	return QUERY

	select m.fecha from _martes m;

	drop table _martes; -- eliminamos la tabla temporal

	END;

    $BODY$

    LANGUAGE plpgsql VOLATILE;

CREATE OR REPLACE FUNCTION martes13(miAnno int)

RETURNS TABLE (fecha date)

AS

$$

DECLARE

  miFecha timestamp;

  miMes int;

BEGIN

  FOR miMes IN 1..12

  LOOP

    fecha = make_date(miAnno, miMes, 13);

    -- El día de la semana van desde Domingo(0) a Sábado (6)

    -- Martes corresponde a 2

    RAISE INFO '% - %', fecha, EXTRACT(DOW FROM fecha);

    IF EXTRACT(DOW FROM fecha) = 2 THEN

      RETURN NEXT;

    END IF;

  END LOOP;

END

$$

LANGUAGE plpgsql;

SELECT martes13(2018);