[Resolvido]Feriados fixos e móveis

Bom dia, sei que existem inúmeros exemplos de funções que mostram feriados.
Ma oque estou precisando ´e uma coisa mais simples, gostaria que após o usuario digitar uma data
o sistema lesse apenas o dia e o mes desse campo, ignorando o ano e se o resultado fosse um feriado
uma msgbox sriaa disparada comunicando o evento.
Exemplo: 25/12/2014 ( Natal )
25/12 o vento seria informando.
os feriado em e questão serão buscados através de um select case, inclusive os feriados municipais
Alguem tem alguam idaia de como fazer isso?

Obrigado

Boa tarde,
Já abordamos várias vezes a questão. Procure aqui, no fórum

AMIGO COMO DISSE NO INICIO DO TOPICO SEI QUE EXISTEM VARIAS FUNÇOES QUE TRATAM FERIADOS POREM ESTOU PRECISANDO DE UMA COISA MASI SIMPLES, E QUE NÃO SEI COMO ESVREVER NO VBA UMA MANEIRA DO CAMPO DATA VER APENAS O DIA EO MES..
POR IISO POSTEI MINHA DUVIDA..
OBRIGADO PELA ATENÇÃO.

Reveja a sua mensagem

REGRAS DO FÓRUM
1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

ops desculpe ai, pelo visto vc se ofendeu e essa não foi minha intenção, nao tinha percebido
a caixa alta.. alem do que vc parece mais interessado em corrigir do que propiamente em ajudar..

Sua barra de desrespeito baixou, por violação dos items 6 e 12 das regras do fórum.

Prezado administrador.. mais uma vez venho pedir desculpas pela caixa alta
Parece que ninguém leu o primeiro post, principalmente a primeira linha.
Sei que existem varias funções para feriados...( eu já tinha pesquisado antes)
Não entendi porque o Sr. Alexandre Neves ficou tão indignado com a caixa alta, no fim da mensagem ate agradeci a atenção dele.
Agora se for para criar desconforto esse meu post, peço por gentileza que o mesmo seja retirado,
afim de que não haja mais aborrecimentos por parte de vocês.
Em outras ocasiões tive minhas duvidas sanadas através desse fórum. e sou muito grato.
Quanto a questão dos feriados melhor deixar pra lá encontrarei uma maneira de resolver..
Muito obrigado.

Prezado Avelino!
Bom dia, baixo vou colocar uma parte de um código retirado aqui mesmo do fórum, e adaptado por mim..
Private Sub CpDataAg_AfterUpdate()
Dim FeriadoBrasileiro

Select Case Format(CpDataAg, "dd-mm")
Case "01-01"
FeriadoBrasileiro = True
NomeFeriado = "Confraternização Universal"
Case "21-04"
FeriadoBrasileiro = True
NomeFeriado = "Tiradentes"
Case "01-05"
FeriadoBrasileiro = True
NomeFeriado = "Dia do Trabalhador"
Case "07-09"
FeriadoBrasileiro = True
NomeFeriado = "Independência do Brasil"
Case "12-10"
FeriadoBrasileiro = True
NomeFeriado = "Nossa Senhora Aparecida"
Case "02-11"
FeriadoBrasileiro = True
NomeFeriado = "Finados"
Case "15-11"
FeriadoBrasileiro = True
NomeFeriado = "Proclamação da República"
Case "20-11"
FeriadoBrasileiro = True
NomeFeriado = "Dia da Consciência Negra"
Case "25-12"
FeriadoBrasileiro = True
NomeFeriado = "Natal"
End Select
Dim Mensagem
Mensagem = "Cadastro de Tramitações"
If FeriadoBrasileiro = True Then
MsgBox CpDataAg & " é Feriado " & NomeFeriado
Resposta = CpDataAg & " é " & NomeFeriado & vbCrLf & " O evento será agendado para " & vbCrLf & " Dia " & [CpDataAg] + 1


DiaSemana = Weekday(CpDataAg)
CpDataAg = [CpDataAg]
If (DiaSemana = 1) Then
Resposta = CpDataAg & " é Domingo, o evento" & vbCrLf & " será agendado para segunda-feira" & vbCrLf & " Dia " & [CpDataAg] + 1
MsgBox Resposta, 64, Mensagem
CpDataAg = DateAdd("d", 1, CpDataAg)

If (DiaSemana = 7) Then
Resposta = CpDataAg & " é Sabado, o evento" & vbCrLf & " será agendado para segunda-feira" & vbCrLf & "Dia " & [CpDataAg] + 2
MsgBox Resposta, 64, Mensagem
CpDataAg = DateAdd("d", 2, CpDataAg)
End If

Me.Texto.SetFocus
End If
End If
Isso eu fiz ontem, mas não da o resultado esperado..
A mensagem e disparada porém o campo CpDataAg, continua com a data digitada( ex. 25/12/14 - Natal)
Não sei pq o resto da função não acontece ou seja, oque vem apos a msgbox: MsgBox CpDataAg & " é Feriado " & NomeFeriado
que seria alterar a data para no caso 26/12/14, mas na hipótese do dia seguinte ser um sabado ou um domingo então agendar pra uma segunda feira..
Espero ter sido claro..
obrigado pela atenção

Prezado Avelino!
Resolvi a questão descobri o erro..
Na verdade oque fiz foi pegar parte do c´digo e criar uma função:
Tambem verifiquei que eu tinah esquecido de dizer que o campo com as data deveria ser acrescido de + 1 dia para mudar a data.
Ficou então da da seguinte maneira:
Primeirto a função criada:
Function feriado()
Dim FeriadoBrasileiro As Integer
Select Case Format(CpDataAg, "dd-mm")
Case "01-01"
FeriadoBrasileiro = True
NomeFeriado = "Confraternização Universal"
Case "21-04"
FeriadoBrasileiro = True
NomeFeriado = "Tiradentes"
Case "01-05"
FeriadoBrasileiro = True
NomeFeriado = "Dia do Trabalhador"
Case "07-09"
FeriadoBrasileiro = True
NomeFeriado = "Independência do Brasil"
Case "12-10"
FeriadoBrasileiro = True
NomeFeriado = "Nossa Senhora Aparecida"
Case "02-11"
FeriadoBrasileiro = True
NomeFeriado = "Finados"
Case "15-11"
FeriadoBrasileiro = True
NomeFeriado = "Proclamação da República"
Case "20-11"
FeriadoBrasileiro = True
NomeFeriado = "Dia da Consciência Negra"
Case "25-12"
FeriadoBrasileiro = True
NomeFeriado = "Natal"
End Select
If FeriadoBrasileiro = True Then
MsgBox CpDataAg & " é Feriado " & NomeFeriado & vbCrLf & " O evento será agendado para " & vbCrLf & " Dia " & [CpDataAg] + 1
CpDataAg = [CpDataAg] + 1
Resposta = CpDataAg & " é " & NomeFeriado
End If
End Function


Depois no evento Após Atualizar do campo:
Private Sub CpDataAg_AfterUpdate()
Call feriado

Dim Mensagem
Mensagem = "Cadastro de Tramitações"


DiaSemana = Weekday(CpDataAg)
CpDataAg = [CpDataAg]
If (DiaSemana = 1) Then
Resposta = CpDataAg & " é Domingo, o evento" & vbCrLf & " será agendado para segunda-feira" & vbCrLf & " Dia " & [CpDataAg] + 1
MsgBox Resposta, 64, Mensagem
CpDataAg = DateAdd("d", 1, CpDataAg)

If (DiaSemana = 7) Then
Resposta = CpDataAg & " é Sabado, o evento" & vbCrLf & " será agendado para segunda-feira" & vbCrLf & "Dia " & [CpDataAg] + 2
MsgBox Resposta, 64, Mensagem
CpDataAg = DateAdd("d", 2, CpDataAg)

End If

Me.Texto.SetFocus
End If

End Sub
Com isso dou pro resolvido o post
Obrigado..

Obrigado!
Porem acabei de me depara com uma coisa , os feriados que não tem data fixa.
Por exemplo:
18/04/14 - sexta feira santa.
Pensei na sua ideia de criar uma tabela, mas como fazer o sistema localizar um feriado que não tem dia fixo..?

Boa noite,
Para feriados móveis, tem de criar código.
Para o caso que mencionou, utilize
Function Pascoa(intAno As Integer) As Date
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim X As Byte, y As Byte
Dim a As Byte, B As Byte, C As Byte, D As Byte, e As Byte

If intAno > 1581 And intAno < 1600 Then X = 22: y = 2
If intAno > 1599 And intAno < 1700 Then X = 22: y = 2
If intAno > 1699 And intAno < 1800 Then X = 23: y = 3
If intAno > 1799 And intAno < 1900 Then X = 23: y = 4
If intAno > 1899 And intAno < 2000 Then X = 24: y = 5
If intAno > 1999 And intAno < 2100 Then X = 24: y = 5
If intAno > 2099 And intAno < 2200 Then X = 24: y = 6
If intAno > 2199 And intAno < 2300 Then X = 25: y = 7

a = intAno Mod 19
B = intAno Mod 4
C = intAno Mod 7
D = ((19 * a) + X) Mod 30
e = ((2 * B) + (4 * C) + (6 * D) + y) Mod 7
If (D + e) < 10 Then
Pascoa = DateSerial(intAno, 3, D + e + 22)
Else
Pascoa = DateSerial(intAno, 4, D + e - 9)
End If
If Pascoa = DateSerial(intAno, 4, 26) Then Pascoa = DateAdd("d", -7, Pascoa)
If Pascoa = DateSerial(intAno, 4, 25) And D = 28 And a > 10 Then Pascoa = DateAdd("d", -7, Pascoa)
End Function

Function SextaFeiraSanta(ByVal intAno As Integer) As Date
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SextaFeiraSanta = DateAdd("d", -2, Pascoa(intAno))
End Function

Prezado Alexandre, e como vou chamar essa função?
Ela deve ser executado no evento após atualizar do campo..
Qual seria a forma de executa-la?

  prezado Avelino.
oque dizer show de bola, incrível sensacional,
testei e funcionou perfeitamente, junto coma outra função do própio Alexandre- cham,ada feriados brasileiros que peguei aqui mesmo no forum,
pude incrementar incluindo tambem 2 feriados municipais aqui da minha cidade, O aniversário e tambem o dia do Padroeiro da cidade.
Agora so falta eu criar coragem de migrar pro 2007 e tentar aprender usar o monta ribons
que comprei a meses e ate´hoje não consegui usar rss..
A voce e ao Alexandre meu muito obrigado..

Que exemplo espetacular