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]Cálculo com datas pré estabelecidas

    Compartilhe

    Odabrius
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 06/11/2016

    [Resolvido]Cálculo com datas pré estabelecidas

    Mensagem  Odabrius em 27/5/2018, 23:46

    Prezados boa noite.

    Criei recentemente em minha empresa, um sistema de contas a pagar.
    Mas agora me deparei com um problema, que confesso não sei por onde começar.
    Meu sistema calcula as datas de vencimento, usando a data de chegada do documento + quantidade de dias para pagar, que pode variar de 15 a 30 dias, de acordo com o negociado com cada fornecedor que temos.

    Ocorre agora que faremos pagamentos todas as sextas feiras, com isso, o sistema precisa seguir 2 premissas.

    1 se a data de vencimento for igual a data da próxima sexta feira de pagamento, o sistema deve informar que a data de pagamento é igual a data da próxima sexta.

    2 se a data de vencimento for posterior a data de pagamento da próxima sexta, o sistema precisa informar que a data de pagamento precisa ser antecipado para a sexta anterior.

    Exemplo com Base o mês de Maio de 2018.

    Considerando hoje dia 27 de Maio, próxima data de pagamento será Sexta Feira 1 de Junho. Se a fatura vencer em 1 de Junho, o sistema indica data de pagamento dia 1 de Junho.

    Mas se a fatura vencer em 5 de Junho  por exemplo, não podemos esperar para pagar na próxima sexta 8 de Junho, pois aí a mesma será paga com atraso, nesse caso o sistema deveria retroceder e indicar como data de pagamento 1 de Junho.


    Não sei se fui claro. Imagino que terei que ter uma tabela com todas as sextas feiras daqui até o fim do ano, mas não sei nem por onde começar.

    Recorro ao Fórum, pois já me ajudaram inúmeras vezes.

    Muito obrigado
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Cálculo com datas pré estabelecidas

    Mensagem  CassioFabre em 28/5/2018, 12:21

    Bom dia,

    Coloque o seguinte em um botão:
    Código:
           Dim dataPagamento, dataVencimento
       
        dataVencimento = txtDataLancamento + txtQntDias
        dataPagamento = dataVencimento - Weekday(dataVencimento, vbSaturday)
        If Weekday(dataVencimento) = 6 Then dataPagamento = dataVencimento

        MsgBox "A data de vencimento do título é " & dataVencimento & " e seu pagamento deve ser realizado em " & dataPagamento, vbInformation, "Vencimento"

    Onde txtDataLancamento é o campo onde está a data que o documento chegou na empresa e txtQntDias é a quantidade de dias para o vencimento, de acordo com cada fornecedor.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    Odabrius
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 06/11/2016

    Re: [Resolvido]Cálculo com datas pré estabelecidas

    Mensagem  Odabrius em 28/5/2018, 12:45

    Muito obrigado Cassio,

    No momento não consigo testar o código.
    Assim que conseguir, posto o resultado.

    Abs

    Odabrius
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 06/11/2016

    Re: [Resolvido]Cálculo com datas pré estabelecidas

    Mensagem  Odabrius em 30/5/2018, 20:45

    Prezado Cassio,

    Muito obrigado.
    Era exatamente o que eu precisava.
    Solução simples e efetiva.

    Esse fórum é nota 1000.

      Data/hora atual: 19/11/2018, 03:41