Verificar se data � feriado

Question

Fiz uma pesquisa aqui no forum, mas n�o achei o que eu preciso.Vamos imaginar que eu queira saber quais s�o os feriados num periodo de 10 anos.Primeiro, crio uma tabela e cadastro os feriados dese...

Arthur Heinrich · Answer

Voc� precisa cadastrar os feriados previamente.

Existem 3 tipos de feriados:

1 - Feriados Nacionais Fixos

Feriados como o dia da Independ�ncia do Brasil ou Programa��o da Rep�blica, s�o exemplos. Como eles ocorrem sempre no mesmo dia do ano e se aplicam a todo o territ�rio nacional, podem ser cadastrados com anteced�ncia de X anos, de forma automatizada. Por exemplo, 10 anos � frente, dependendo de sua necessidade.

2 - Feriados Nacionais M�veis

Estes ocorrem, geralmente, associados � P�scoa. Sendo assim, a primeira tarefa � definir quando a P�scoa ocorrer� no ano (e anos seguintes), para depois calcular os demais.

A P�scoa � celebrada no primeiro domingo ap�s a primeira lua cheia que ocorre em ou ap�s o equin�cio de mar�o (dia 21 de mar�o, data eclesi�stica fixa que representa o in�cio da primavera no Hemisf�rio Norte/outono no Hemisf�rio Sul). A data da P�scoa pode, assim, variar entre 22 de mar�o e 25 de abril.

A partir deste domingo de P�scoa, calcula-se os demais feriados somando ou subtraindo uma quantidade f�xa de dias.

3 - Feriados Estaduais ou Municipais

Feriados estaduais e municipais s�o, em geral, fixos. Ou seja, sempre ocorrem na mesma data. Por�m, sua abrang�ncia n�o � nacional. Exemplos disso, em S�o Paulo, s�o o dia 25/janeiro, em que se comemora o anivers�rio da cidade de S�o Paulo e 09/julho, em que se comemora a Revolu��o Constitucionalista de 1932 no Estado de S�o Paulo.

Para estes, requer um cadastro mais complexo, mas n�o imposs�vel de se programar de forma automatizada e o sistema precisa avaliar se � feriado ou n�o, de acordo com a localiza��o geogr�fica do usu�rio.

Renan · Answer

Estava pensando em usar um DecodeDate para n�o ficar "ref�m" de ter que cadastrar os feriados, especialmente os nacionais, por 10 anos ou mais.

Ent�o eu buscaria na tabela de feriados a data completa, mas faria a compara��o somente pelo dia e m�s...
O problema � que na minha rotina atual tem o calculo de parcelas e n�o posso usar o DecodeDate ali, sen�o quando eu lan�ar parcelas em 60x, por exemplo, o sistema se perderia.

Acho que realmente vou precisar cadastrar os feriados da forma que voc� mencionou.

Emerson Nascimento · Answer

Usando o exemplo do Arthur Heinrich, quando for um feriado fixo, voc� n�o precisa cadastrar diversas vezes por causa do ano. Basta ignorar o ano ao fazer a busca.

O cadastro seria mais ou menos assim:

Dia : [m�s/DIA]
Ano: [um conte�do ou vazio]
Abrangencia: [Nacional / Estadual / Municipal]
Local: [se estadual, o estado; se municipal o munic�pio+estado]
Descri��o: [descri��o do feriado]

Com �ndice por todos os campos

Exemplo de cadastro:
Dia : 01/01
Ano: (vazio)
Abrangencia: Nacional
Local: (ignorado, porque agrang�ncia � nacional)
Descri��o: Confraterniza��o universal

Dia : 01/25
Ano: (vazio)
Abrangencia: Municipal
Local: S�o Paulo/SP
Descri��o: Confraterniza��o universal

Dia : 03/04
Ano: 2025
Abrangencia: Estadual
Local: SP
Descri��o: Carnaval

Dia : 07/09
Ano: (vazio)
Abrangencia: Estadual
Local: SP
Descri��o: Revolu��o constitucionalista

Dia : 12/25
Ano: (vazio)
Abrangencia: Nacional
Local: (ignorado, porque agrang�ncia � nacional)
Descri��o: Natal

Ao fazer a busca, voc� faria algo como:
dia = '01/01'
and (ano = ' ' or ano = [ano desejado])
and ((abrangencia = 'Nacional') or (abrangencia = 'Estadual' and local = [UF desejada]) or (abrangencia = 'Municipal' and local = [Cidade/UF desejada]))

Isto serve para gerar datas de vencimentos de t�tulos baseados tamb�m no destino.
Comumente as empresas alteram a data de vencimento de um t�tulo em raz�o da pr�pia localidade, mas eu estiver em S�o Paulo/SP e fizer uma venda para Belo Horizonte/MG eu preciso me preocupar com o feriado de Belo Horizonte, n�o de S�o Paulo.

Para buscar todos os feriados dos pr�ximos 10 anos basta fazer:
and (ano = ' ' or ano <= 2035)

Para buscar os feriados dos pr�ximos 10 anos da tua localidade:
and (ano = ' ' or ano <= 2035)
and ((abrangencia = 'Nacional') or (abrangencia = 'Estadual' and local = [UF desejada]) or (abrangencia = 'Municipal' and local = [Cidade/UF desejada]))

Emerson Nascimento · Answer

Usando o exemplo do Arthur Heinrich, quando for um feriado fixo, voc� n�o precisa cadastrar diversas vezes por causa do ano. Basta ignorar o ano ao fazer a busca.

O cadastro seria mais ou menos assim:

Dia : [m�s/DIA]
Ano: [um conte�do ou vazio]
Abrangencia: [Nacional / Estadual / Municipal]
Local: [se estadual, o estado; se municipal o munic�pio+estado]
Descri��o: [descri��o do feriado]

Com �ndice por todos os campos

Exemplo de cadastro:
Dia : 01/01
Ano: (vazio)
Abrangencia: Nacional
Local: (ignorado, porque agrang�ncia � nacional)
Descri��o: Confraterniza��o universal

Dia : 01/25
Ano: (vazio)
Abrangencia: Municipal
Local: S�o Paulo/SP
Descri��o: Confraterniza��o universal

Dia : 03/04
Ano: 2025
Abrangencia: Estadual
Local: SP
Descri��o: Carnaval

Dia : 07/09
Ano: (vazio)
Abrangencia: Estadual
Local: SP
Descri��o: Revolu��o constitucionalista

Dia : 12/25
Ano: (vazio)
Abrangencia: Nacional
Local: (ignorado, porque agrang�ncia � nacional)
Descri��o: Natal

Ao fazer a busca, voc� faria algo como:
dia = '01/01'
and (ano = ' ' or ano = [ano desejado])
and ((abrangencia = 'Nacional') or (abrangencia = 'Estadual' and local = [UF desejada]) or (abrangencia = 'Municipal' and local = [Cidade/UF desejada]))

Isto serve para gerar datas de vencimentos de t�tulos baseados tamb�m no destino.
Comumente as empresas alteram a data de vencimento de um t�tulo em raz�o da pr�pia localidade, mas eu estiver em S�o Paulo/SP e fizer uma venda para Belo Horizonte/MG eu preciso me preocupar com o feriado de Belo Horizonte, n�o de S�o Paulo.

Para buscar todos os feriados dos pr�ximos 10 anos basta fazer:
and (ano = ' ' or ano <= 2035)

Para buscar os feriados dos pr�ximos 10 anos da tua localidade:
and (ano = ' ' or ano <= 2035)
and ((abrangencia = 'Nacional') or (abrangencia = 'Estadual' and local = [UF desejada]) or (abrangencia = 'Municipal' and local = [Cidade/UF desejada]))

Renan · Answer

Ol� Emerson.Entendi sua l�gica, mas n�o estou conseguindo adaptar ao meu cen�rio.Vou tentar te explicar como � hoje:Na gera��o de parcelas tenho uma variavel chamada DataGravar que recebe a data de vencimento da parcela. Essa variavel est� dentro de um For e � alimentada conforme o susrio informar(a cada x dias ou mensalmente).Para verificar os finais de semana o DataGravar passa por uma function ...

Emerson Nascimento · Answer

supondo que tua tabela de feriados siga aquela orienta��o (com �ndice para cada um dos campos):
Dia (string) : [m�s/DIA]
Ano (numero) : [um conte�do ou 0 ou null]
Abrangencia (string): [Nacional / Estadual / Municipal]
Local (string): [se estadual, o estado; se municipal o munic�pio+estado]
Descri��o (string): [descri��o do feriado]

crie uma fun��o para retornar se uma data � feriado. algo assim:

// Verifica se uma data � feriado ou final de semana
function IsHoliday(dtData: TDate; strMunicipio: string; strUF: string): Boolean;
var
  Dia: Word;
  Mes: Word;
  Ano: Word;
  Feriado: TFeriado;
  MesDia: string;
begin
  Result := (DayOfWeek(dtData) in [1,7]);

  if not Result then // se n�o � fim de semana, ent�o avalia se � feriado
  begin

    DecodeDate(dtData, Ano, Mes, Dia);

    MesDia := FormatFloat('00', Mes) + '/' + FormatFloat('00', Dia)

    strQuery := 'SELECT DIA FROM FERIADOS WHERE' +
                    ' DIA = ' + QuotedStr(MesDia) + 
                    ' AND (COALESCE(ANO,0) = 0 OR ANO = ' + IntToStr(Ano) + ')' +
                    ' AND ((ABRANGENCIA = ''Nacional'') OR'+
                    '     (ABRANGENCIA = ''Estadual'' AND LOCAL = '+QuotedStr(strUF)+') OR'+
                    '     (ABRANGENCIA = ''Municipal'' and local = ' + QuotedStr(strMunicipio + '/' + strUF)  + '))'

    // a execu��o da consulta vai depender do banco de dados e do componente de conex�o
    [executa a consulta]

    // a forma de tratar o retorno vai depender do componente utilizado
    Result := not dataset.Eof;

    // fecha dataset/libera mem�ria

  end;
end

da� voc� usa assim:

vencimento := [data calculada];
strMunicipio := 'S�o Paulo'
strUF := 'SP'

while IsHoliday(vencimento, strMuincipio, strUF) do
   IncDay(vencimento);

Cns Limitada · Answer

Private Girls In Your Town - No Verify - Anonymous Sex Dating
https://PrivateLadyEscorts.com

[url=https://PrivateLadyEscorts.com/girls.html] Private Lady From Your Town [/url] - Anonymous Adult Dating - No Verify

Calculo Salario · Answer

Boa pergunta. Para esse tipo de caso, o ideal � trabalhar com feriados recorrentes (dia e m�s) e gerar as datas dinamicamente para cada ano do per�odo, em vez de cadastrar ano por ano. Isso evita falhas em consultas longas. Em sistemas de folha e c�lculos trabalhistas, solu��es assim s�o comuns. Para apoio em c�lculos salariais e datas no Brasil, vale conhecer: https://calculodesalario.com/...

F�rum Verificar se data � feriado #623832