[Resolvido]Calendário horizontal com feriados

Muito bons dias a todo o forum!

Tenho um formulario para escolher o mês e o ano, com os dias horizontalmente e que marca em côr diferente os fins de semana,
Precisava que me marcasse também os feriados. Necessitava da Vossa ajuda.
Queria anexar o ficheiro, mas diz sempre que o total de armazenamento foi ultrapassado.
Podem-me ajudar?

Envie para o meu email que eu coloco.

sergiovieirasoft@gmail.com

em formato zip ou rar

Vieira! Recebeu?

Saiu agora, aí está para quem puder ajudar.

http://dl.dropbox.com/u/8157744/Calendarios%20Mes%20Ano%20-%20C%C3%B3pia.zip

vieira!

Muito obrigada pelo retorno

A pedido do MendesOff

Novo Link

http://dl.dropbox.com/u/8169944/Calendario%20MendesOff.mdb

Obrigado Assis!

Nenhuma dica?

Tem aqui
http://dl.dropbox.com/u/24017093/MaximoAccess/Calendario%20MendesOff.rar

Alexandre Neves!

Muito....Muito obrigado.

Retirou-me aqui uma grande dôr de cabeça, andava ás voltas há vários dias.
Obrigadissimo.
Agora vou tentar adaptar aqui a contagem dos dias úteis, numa caixa de texto de acordo com o mês selecionado. Se puder dar uma ajuda.....

Mais uma vez muito obrigado

mesdesof,

Primeiro, tente resolver pois sem ginástica mental não se aprende.

Alexandre Neves!

Estou inteiramente de acordo consigo, e a minha intenção não foi essa. Até porque o que você teve a gentileza de me fazer está a servir para eu esmiuçar como foi efectuado e assim aprender, não me contento com as coisas resolvidas e o que nos dá maior satisfação é nós conseguir-mos fazer. Mas como leigo e autodidata na informática, fico sempre na dúvida se o que fiz não pode ser efectuado de forma mais prática e funcional.

Mais uma vez muito obrigado pela sua disponibilidade e pelo grande favor que me fez.

Concordo inteiramente, também sou autodidata e não pense que faço as coisas "com uma perna às costas". Também, quantas vezes, "ando às aranhas".
Se, depois de partir a cabeça, não conseguir recorra novamente ao fórum.

Boas noites a todo o forum!

Já consegui contar os dias do mês selecionado, no campo me.DiasMes
Agora estou a tentar contar os dias do mês sem os fins-de-semana(sábados e domingos), com a rotina seguinte, mas não me dá os dias correctos(umas vezes tem dias a mais ou a menos)e não estou a conseguir ver porquê.
Será possivel uma ajudinha?
Depois terei que passar para os feriados.

Me.DataInicio = DateSerial(calAny, lblmes, 1)
Me.DATAFIM = DateSerial(calAny, (lblmes) + 1, 0)
WholeWeeks = DateDiff("w", DataInicio, DATAFIM)
DateCnt = DateAdd("ww", WholeWeeks, DataInicio)
EndDays = 0
Do While DateCnt <= DATAFIM
If Format(DateCnt, "ddd") <> "Sun" And Format(DateCnt, "ddd") <> "Sat" Then
EndDays = EndDays + 1
End If
DateCnt = DateAdd("d", 1, DateCnt)
Loop
Contardias = WholeWeeks * 5 + EndDays

Me.DiasMes = DateDiff("d", DataInicio, DATAFIM) + 1

Bom dia,
Não percebi porque apresenta código da função e, depois, utiliza outra função para preencher os dias do mes!
Utilize
dim DiaActual as date
ContarDias=0
for diaactual= DateSerial(calAny, lblmes, 1) to DateSerial(calAny, (lblmes) + 1, 0)
if weekday(diaactual)> 1 and weekday(diaactual)<7 then contardias=contardias+1
Next


Me.DiasMes = contardias

Alexandre Neves!

Mais uma vez, muito obrigado pelo seu retorno.

Eu comecei por contar os dias todos do mês, no campo DiasMes e depois tentava contar os dias sem os fins de semana no csmpo
contarDias, mas o retorno desses dias estava a dar-me mal. Estou a fazer por tentativas e de seguida irei tentar contar os dias também sem os seus feriados. Já agora se fosse possível dar-me uma ideia se será melhor fazer isto num modulo ou como estou a tentar fazer?

Obrigado pelo retorno

se pretender reutilizar o código, crie uma função própria para que a possa chamar de qualquer parte do programa. caso contrário, pode deixar no código do procedimento.

obrigado pelo retorno Alexandre Neves

O seu exêmplo funciona na perfeição e serviu também para eu verificar que estava a complicar a situação.
Se me permite, como deverei chamar a rotina dos feriados?

Alexandre Neves!

Através do seu exêmplo já consegui, coloquei da seguinte forma:


dim DiaActual as date
ContarDias=0
for diaactual= DateSerial(calAny, lblmes, 1) to DateSerial(calAny, (lblmes) + 1, 0)
if weekday(diaactual)> 1 and weekday(diaactual)<7 then contardias=contardias+1
If Feriado(DiaActual) And Weekday(DiaActual) <> 1 And Weekday(DiaActual) <> 7 Then ContarDias = ContarDias - 1
Next
Me.DiasMes = contardias


Mais uma vez obrigadissimo pelo retorno.

Boas
Nao consigo abrir o forulario principal. aprecer notificaçao que a minha versao e de 64bits e o codigo apenas tem a declaraçãõ para 32 bits.
E agora?