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

    Seimed entre duas datas

    avatar
    FabioR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 27/10/2021

    Seimed entre duas datas Empty Seimed entre duas datas

    Mensagem  FabioR 11/7/2023, 03:12

    Boa noite!

    Preciso de uma ajuda para identificar aonde estou errando no parâmetro abaixo;

    Preciso fazer o seguinte resultado.

    [DATA] = exemplo;
    10/05/2023
    21/05/2023

    expr1: SeImed([Mensal_avulso]=1;SeImed([data]>=DataSerial(Ano([data]);Mês([data])-2;21) E [data]<=DataSerial(Ano([data]);Mês([data])-1;20);Format(Mês(Data())));Format(Mês([datapagto])))

    onde  [Mensal_avulso] for =1,

    o campo [expr1] se a [data] estiver dentro do periodo 21 do mês anterior e 20 do mesmo mês, mostre como sendo o mês seguinte;
    Exemplo: 10/05/2023 - está entre do dia 21/04 e 20/05, entao mostre, Mês 6.
    Exemplo2: 21/05/2023 - está depois do dia 20/05, então mostre, Mês 7
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    Seimed entre duas datas Empty Re: Seimed entre duas datas

    Mensagem  Alexandre Neves 16/7/2023, 17:00

    Boa tarde
    Reveja as suas dúvidas que deixou por dar continuidade aos colegas que o tentaram ajudar.
    Sobre esta dúvida, criei esta função:
    Código:
    Function NrMesFabioR(dtData As Date) As Byte
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        If Day(dtData) > 20 Then NrMesFabioR = Month(dtData) + 2 Else NrMesFabioR = Month(dtData) + 1
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    FabioR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 27/10/2021

    Seimed entre duas datas Empty Re: Seimed entre duas datas

    Mensagem  FabioR 17/7/2023, 15:04

    Obrigado pela Ajuda Alexandre, mas fiquei em dúvida de como utilizar em uma consulta.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    Seimed entre duas datas Empty Re: Seimed entre duas datas

    Mensagem  Alexandre Neves 17/7/2023, 19:57

    Boa tarde
    Utilize como outra função nativa do Access, chame-a por NrMesFabioR e coloque o argumento de dtData


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    FabioR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 27/10/2021

    Seimed entre duas datas Empty Re: Seimed entre duas datas

    Mensagem  FabioR 19/7/2023, 14:28

    Bom dia Alexandre!

    Tentei de todas as formas fazer funcionar, mas nao consegui.

    Por gentileza, abusando do seu tempo, mandei uma cópia do BD para que me ajude a implantar.
    Anexos
    Seimed entre duas datas Attachmentnucleodemonstrativo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.4 Mb) Baixado 6 vez(es)

    Conteúdo patrocinado


    Seimed entre duas datas Empty Re: Seimed entre duas datas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/6/2024, 13:00