[Resolvido]Registar em tabela dados dos Meses do Ano

Bom dia Amigos

No exemplo que anexo tem:

2 Tabelas
- Feriados
- Meses

1 Formulário
- Menu

1 Módulo
- ModFeriados (Autor Alexandre Neves)

No formulário menu ao clicar no botão "Executar", são logo registados todos os feriados de Portugal do Ano em curso na tabela "Feriados".

'----------------------------------------------------------------------------------

Pretendia que ao clicar no botão "Executar", que a tabela "Meses" fosse preenchida com:

- Meses do Ano de janeiro a dezembro.
- Total (Número) de dias no mês do respetivo mês. (Ter em atenção o Ano Bixesto)
- Total (Número) de feriados do respetivo mês.
- Total (Número) de sábados e domingos respetivo mês.

Alguém ???

Obrigado

Minha contribuição apenas para os meses e total de dias em cada mês;

Código:

Private Sub SeuBotão_Click()
'By JPaulo Maximo Access
Dim sMesSomado As String
Dim IntQtdMeses As Integer
Dim i As Integer
Dim sAno As Date
Dim TotalDiasNoMes As Integer
Dim TotalDiasNoMesAnoBisexto As Integer

'Inicia em 1 de janeiro do ano atual
sAno = CDate("1/1/" & Year(Date))
    'quantidade de meses do ano
    IntQtdMeses = 12
    'monta o loop á quantidade de meses
    For i = 0 To IntQtdMeses
    sMesSomado = DateAdd("m", i, sAno)
    'obtem o total de dias em cada mês
    'se for ano bisexto, obtem o total de dias
    If TotalDiasNoMesAnoBisexto = Month(DateSerial(Year(Date), 2, 29)) = 2 = True Then
        TotalDiasNoMes = TotalDiasNoMesAnoBisexto
    Else
    'se não for bisexto, obtem o total dias
        TotalDiasNoMes = Day(DateSerial(Year(sMesSomado), Month(sMesSomado) + 1, 0))
    End If
    'altera o sMesSomado para o mês por extenso
    sMesSomado = MonthName(Month(sMesSomado))
    'insere na tabela cada mês
    If Me.Dirty Then Me.Dirty = False
    CurrentDb.Execute "INSERT INTO Meses (Mes, DiasNoMes) VALUES ('" & sMesSomado & "'," & TotalDiasNoMes & ");"
    Next i
End Sub

Obrigado JPaulo

É um bom começo

Amigos

Os feriados já estão.

Uma ideia para os sábados e domingos ?

Obrigado

Olá Teixeira.
Até certo é. Na tabela feriados tenho o primeiro dia do ano, mas como ter o dia 31 dez .
E preciso de os contar por mês

Uma luz ....
Obrigado

Código:

Private Sub fncPopulaTabela()

    Dim objRS As DAO.Recordset
    Dim bytMes As Byte

    Call CurrentDb.Execute("delete * from Meses;")
   
    Set objRS = CurrentDb.OpenRecordset("Meses", , 8)
   
    For bytMes = 1 To 12
   
        objRS.AddNew
            objRS!Mes.Value = MonthName(bytMes)
            objRS!DiasNoMes.Value = Day(DateSerial(Year(Date) + IIf(bytMes = 12, 1, 0), IIf(bytMes = 12, 1, bytMes + 1), 0))
            objRS!FeriadosNoMes.Value = DCount("*", "Feriados", "month(DataFeriado)=" & bytMes)
            objRS!SabadosEDomingos.Value = fncCSD(bytMes, objRS!DiasNoMes.Value)
        objRS.Update
   
    Next bytMes
   
    Call objRS.Close: Set objRS = Nothing
   
End Sub

'função Conta Sabados e Domingos
Private Function fncCSD(bytMes As Byte, bytTotalDias As Byte) As Byte

    Dim bytTotal As Byte
    Dim bytDia As Byte
   
    For bytDia = 1 To bytTotalDias
        If Eval(Weekday(DateSerial(Year(Date), bytMes, bytDia)) & " in(1,7)") Then bytTotal = bytTotal + 1
    Next bytDia
   
    fncCSD = bytTotal

End Function


Gostei Ivan, parabens.
Uma excelente compilação.

Grande Ivan

Obrigado, vai ser muito útil.

Esses subtotais são virtuais, não dá;

FYI;

Download

Obrigado JPaulo