Daten aller Donnerstage im Monat

[mkinzler]

Dirty hack:

SQL-Code:

CREATE OR ALTER PROCEDURE WOCHENTAGEEINESMONATS (
    monat smallint,
    wtag smallint,
    jahr integer)
returns (
    datum date)
as
declare variable m smallint;
begin
  select extract( weekday from cast ( :jahr || '.' || :monat || '.01' as date)) from rdb$database into :m;
  m = MOD( :wtag + :m - 2, 7);
  while (:m <= 31 /* mit berechneten Maxdatum des Monats ersetzen */) do
  begin
      datum = cast( :jahr || '.' || :monat || '.' || m as date);
      m = :m + 7;
      suspend;
  end
end