MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Difdata para mes +1 na virada do ano

    avatar
    Mauricio H
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 22/01/2014

    Difdata para mes +1 na virada do ano Empty Difdata para mes +1 na virada do ano

    Mensagem  Mauricio H 17/12/2015, 18:20

    Tenho uma consulta que calcula o números de dias para o próximo vencimento de uma mensalidade PRAZO.

    Emito as mensalidade duas vezes por mês. No começo do mês tiro todas que tem vencimento entre os dias 15 e 30 e no fim do mês todas que tem vencimento entre os dias 1 e 14 do próximo mês. Assim essas ultimas terão vencimento mês +1.

    No fim do ano sempre acontecem problemas pois a consulta coloca mês 12 + 1 que não existe e não adiciona 1 ao ano.

    Como corrigir minha equação para que esse problema não se repetir no próximo ano?

    Segue a equação:

    PRAZO: SeImed([VENCIMENTO]<14;DifData("d";Data();([VENCIMENTO] & "/" & Format$(Data();"mm")+1 & "/" & Format$(Data();"yy")));DifData("d";Data();([VENCIMENTO] & "/" & Format$(Data();"mm") & "/" & Format$(Data();"yy"))))
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Difdata para mes +1 na virada do ano Empty Re: Difdata para mes +1 na virada do ano

    Mensagem  Avelino Sampaio 18/12/2015, 09:18

    Seja benvindo!

    Utilize a função DateSerial(). Exemplo:

    dateserial(Ano,mês,dia)
    dateserial(2015,12+1,15) :::> 15/01/2016

    Aguardamos



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 8/11/2024, 05:49