MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ultimo dia útil do mês

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 191
    Registrado : 05/04/2016

    [Resolvido]Ultimo dia útil do mês

    Mensagem  Luís Antunes em 11/3/2018, 00:23

    Tenho este código, num relatório, que é suposto dar-me o último dia útil do mês. Não funciona
    A Data é retirada de um combo box, que está em meses, "cbo_mes".
    É possível retirar do mês o útimo dia util desse mesmo mês.


    Código:
    Private Sub UDUM_Enter()
    Dim vData As Date
    For vData = [Data_Fechamento] To 1 Step -1
       If Weekday([Formulários]![Frm_Lancamento]![cbo_mes]) <> vbSaturday And Weekday([Formulários]![Frm_Lancamento]![cbo_mes]) <> vbSunday Then Exit For
    Next vData
    Data_Pagamento = vData
    End Sub

    Luís Antunes

    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 76
    Registrado : 27/10/2013

    Re: [Resolvido]Ultimo dia útil do mês

    Mensagem  cpampas em 11/3/2018, 07:33

    ola,

    se a dataFechamento por um numero inteiro poderias transformar numa data, claro que tb precisas do ano que neste caso coloquei 2018


    Código:
    vData = DateSerial(2018, Data_Fechamento, 1)
    se depois queres ir para o ultimo dia desse mes :

     
    Código:
    vData = DateSerial(Year(vData), Month(vData) + 1, 0)


    depois irias para o loop

    Código:
    For vData = vData To 1 Step -1
       If Weekday(vData) <> vbSaturday And Weekday(vData) <> vbSunday Then Exit For
    Next vData
    Data_Pagamento = vData

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 191
    Registrado : 05/04/2016

    Re: [Resolvido]Ultimo dia útil do mês

    Mensagem  Luís Antunes em 14/3/2018, 20:06

    cpampas
    Obigado pele resposta.
    Só hoje é que abri o computador.
    Coloquei o seu código no Relatório e não deu nada.
    Reduzi o meu projecto e estou a enviá-lo em anexo.
    Quando o formulário estiver aberto escolha o mês de Fevereiro e o ano 2018 de seguida Duplo Click no botão de imprimir.
    Anexos
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (98 Kb) Baixado 6 vez(es)

    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 76
    Registrado : 27/10/2013

    Re: [Resolvido]Ultimo dia útil do mês

    Mensagem  cpampas em 15/3/2018, 10:48

    Luis
    Coloquei um botao com este codigo no teu formulario, e devolve o ultimo dia do mes escolhido

    Código:
    Dim vData
    Dim m As Integer
    m = Me.cbo_mes
    vData = DateSerial(2018, m, 1)
    vData = DateSerial(Year(vData), Month(vData) + 1, 0)
    For vData = vData To 1 Step -1
       If Weekday(vData) <> vbSaturday And Weekday(vData) <> vbSunday Then Exit For
    Next vData
    MsgBox (vData)

    o problema é que o valor da cbo_mes é o nome do mes, e a funçao dateSerial precisa do numero do mes
    por isso podes mudar a origem de dados da combo, para 2 colunas, sendo a dependente a primeira, e a largura das colunas 0;2.5

    1;"Janeiro";2;"Fevereiro";3;"Março";4;"Abril";5;"Maio";6;"Junho";7;"Julho";8;"Agosto";9;"Setembro";10;"Outubro";11;"Novembro";12;"Dezembro"

    espero que ajude

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 191
    Registrado : 05/04/2016

    Re: [Resolvido]Ultimo dia útil do mês

    Mensagem  Luís Antunes em 20/3/2018, 12:01

    cpampas
    Desculpe-me de responder só agora.
    Resolvi o problema de outra maneira:
    Código:
    Private Sub cbo_Ano_AfterUpdate()
    Me.txtDataInicial = "01/" & Format(Me.cbo_Mês, "mm") & "/" & Me.cbo_ano 'Format(Me.cbo_ano, "yyyy")
    Me.txtDataFinal = FinalMes(Me.txtDataInicial)
    End Sub
    Vou buscar a data do fim do Mês e, apliquei um código de Friados e fins de semana do site do mestre Avelino

    De qualquer modo fico-lhe grato pela atenção

    Luís Antunes

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 191
    Registrado : 05/04/2016

    Re: [Resolvido]Ultimo dia útil do mês

    Mensagem  Luís Antunes em 21/3/2018, 16:54

    Peço desculpa por não deixar este tópico resolvido.

    Luís Antunes

      Data/hora atual: 21/11/2018, 02:22