Fórum Ajuda com MonthCalendar #316884

SELECT DATA
FROM    FERIADO

SELECT DATA
FROM FERIADO
WHERE EXTRACT(MONTH FROM DATA) = 
           EXTRACT(MONTH FROM :PARAMDATA) 

"Specified EXTRACT part does not exist in input datatype"

TABLE FERIADOS (
    COD_FERIADO  INTEGER NOT NULL,
    DESCRICAO    VARCHAR(40),
    DATA         DATE NOT NULL,
    DIA          VARCHAR(40),
    TIPO         INTEGER;

SELECT DATA
FROM FERIADOS
WHERE EXTRACT(MONTH FROM DATA) =
             EXTRACT(MONTH FROM :PARAMDATA)

procedure TFormCalendario.CalendarioGetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
var
  ano, mes, dia: word;
  Data: TDateTime;
  x: array of cardinal;
  i: integer;
begin
  inherited;
  // Marca com Bold os feriados cadastrados no Sistema
  x:= Nil;
  try
    DecodeDate(Calendario.Date, ano, mes, dia);
    // Só tem a variável Month para obter o ano pega-se
    // o ano que está em MonthCalendar.Date, sendo que este é a posição
    // anterior , por isto o tratamento abaixo
    case Month of
      1: if mes = 12 then
          ano:= ano + 1;
      12: if mes = 1 then
          ano:= ano - 1;
    end;
      Data:= EncodeDate(ano, Month, 1);
      i:= -1;
    with Consulta do
      Begin
        Close;
        Params[0].AsDate:= Data;
        Open;
        if Eof then
          Exit; //<<== Mês sem feriado
          SetLength(x, RecordCount); // Tamanho do array
        while not (Eof) do
          Begin
            Inc(i);
            x[i]:= Fields[0].AsInteger;
            Next;
          end;
        Close;
      end;
    Calendario.BoldDays(x, MonthBoldInfo);
  except
  end;
end;