MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Colocar Feriados numa Array

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 371
    Registrado : 28/10/2010

    [Resolvido]Colocar Feriados numa Array Empty [Resolvido]Colocar Feriados numa Array

    Mensagem  zcarloslopes em 11/9/2019, 17:09

    Boa tarde,

    Estou a tentar optimizar os cálculos de dias e/ou horas entre datas.

    Encontrei um exemplo na net (créditos para o autor) bastante útil.
    Queria apenas acrescentar uma Array com os feriados nacionais (Portugueses) no Módulo existente no exemplo, mas não estou a conseguir e peço ajuda para isso.

    Anexo o exemplo.

    Array:
    Código:
       '-----------------------------------------------------------------------------
        'Array(Table) of Holiday Dates
        
        Dim DayArray(16) As Date
        Dim intyear As Integer
        intyear = Year(EndDate)
        
     
        DayArray(0) = Format(("01/01/" & intyear), "mm/dd/yyyy") 'Ano Novo
        DayArray(1) = Format(("04/25/" & intyear), "mm/dd/yyyy") 'Dia da Liberdade
        DayArray(2) = Format(("05/01/" & intyear), "mm/dd/yyyy") 'Dia do Trabalhador
        DayArray(3) = Format(("06/10/" & intyear), "mm/dd/yyyy") 'Dia de Portugal
        DayArray(4) = Format(("06/13/" & intyear), "mm/dd/yyyy") 'Santo António
        DayArray(5) = Format(("06/24/" & intyear), "mm/dd/yyyy") 'São João
        DayArray(6) = Format(("8/15/" & intyear), "mm/dd/yyyy") 'Assunção de Nossa Senhora
        DayArray(7) = Format(("10/05/" & intyear), "mm/dd/yyyy") 'Implantação da República
        DayArray(8) = Format(("11/01/" & intyear), "mm/dd/yyyy") 'Todos os Santos
        DayArray(9) = Format(("12/01/" & intyear), "mm/dd/yyyy") 'Restauração da Independência
        DayArray(10) = Format(("12/08/" & intyear), "mm/dd/yyyy") 'Imaculada Conceição
        DayArray(11) = Format(("12/25/" & intyear), "mm/dd/yyyy") 'Natal
        
        'Feriados Móveis
        DayArray(12) = (Pascoa(intyear))  ' Páscoa
        DayArray(13) = DateAdd("d", -47, (Pascoa(intyear))) 'Carnaval
        DayArray(14) = DateAdd("d", -2, (Pascoa(intyear))) 'Sexta-feira Santa
        DayArray(15) = DateAdd("d", 51, (Pascoa(intyear))) 'Senhora de Matosinhos
        DayArray(16) = DateAdd("d", 60, (Pascoa(intyear))) 'Corpo de Deus
        '---------------------------------------------------------------------------------
    Anexos
    [Resolvido]Colocar Feriados numa Array AttachmentWorkDaysCount_v1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (84 Kb) Baixado 5 vez(es)


    Última edição por zcarloslopes em 12/9/2019, 09:55, editado 1 vez(es)
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 371
    Registrado : 28/10/2010

    [Resolvido]Colocar Feriados numa Array Empty Re: [Resolvido]Colocar Feriados numa Array

    Mensagem  zcarloslopes em 12/9/2019, 09:54

    Resolvido.
    Anexos
    [Resolvido]Colocar Feriados numa Array AttachmentWorkDaysCount_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 12 vez(es)

      Data/hora atual: 27/1/2021, 20:35