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]Mes iniciando dia 26 e terminando dia 25

    avatar
    lesniovski
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 04/10/2012

    [Resolvido]Mes iniciando dia 26 e terminando dia 25 Empty [Resolvido]Mes iniciando dia 26 e terminando dia 25

    Mensagem  lesniovski em 23/4/2018, 16:00

    Bom dia

    Mais uma vez, peço ajuda aos grandes mestres.

    Possuo uma consulta que formata um campo Data (dd/mm/yyyy), para mmmm/yyyy -  Mês / Ano: Format([Data];"mmmm/yyyy")

    No entanto, gostaria que os registros dos dias 01 a 25, ficassem no mês corrente, e do dia 26 até o fim, fossem para o mês subsequente, há essa possibilidade?

    Por exemplo:

    Data: 03/01/2018 - Mês / Ano: Janeiro/2018
    Data: 10/01/2018 - Mês / Ano: Janeiro/2018
    Data: 20/01/2018 - Mês / Ano: Janeiro/2018
    Data: 25/01/2018 - Mês / Ano: Janeiro/2018
    Data: 26/01/2018 - Mês / Ano: Fevereiro/2018
    Data: 30/01/2018 - Mês / Ano: Fevereiro/2018

    Fui claro no meu exemplo?

    No Aguardo

    Marcio Lisandro


    Última edição por lesniovski em 24/4/2018, 03:36, editado 1 vez(es)
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 30/07/2012

    [Resolvido]Mes iniciando dia 26 e terminando dia 25 Empty Re: [Resolvido]Mes iniciando dia 26 e terminando dia 25

    Mensagem  wellingtoneo em 23/4/2018, 18:06

    Olá, boa tarde!


    Amigo não sei se vai te ajudar, mas eu faria separadamente... veja:

    SeImed(Dia([CampoData])>25 E Mês([data])<=11;Format(Mês([CampoData])+1 & "/" & Ano([CampoData]);"mmmm/yyyy");SeImed(Mês([CampoData])=12 E Dia([CampoData])>25;Format("01" & "/" & Ano([CampoData])+1;"mmmm/yyyy");Format([CampoData];"mmmm/yyyy")))

    Ajuste a expressão se necessário.

    Abraços.
    avatar
    lesniovski
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 04/10/2012

    [Resolvido]Mes iniciando dia 26 e terminando dia 25 Empty Re: [Resolvido]Mes iniciando dia 26 e terminando dia 25

    Mensagem  lesniovski em 23/4/2018, 19:56

    Wellington,

    Obrigado pela resposta, entendi parcialmente a expressão.

    Fiquei com dúvida o pq vc fez um comparativo do Mês <= 11, e na outra expressão = 12. Está separando o mês de Dezembro?

    Qual o sentido?

    Obrigado desde já

    Edit: Desculpe a ignorância, realmente precisa separar o mês de Dezembro, para que ele aumente o ano hehe, agora entendi completamente a expressão.

    Muito Obrigado, vou fazer a aplicação desse SeIMed no access a noite, e posto o resultado.

    Abraços
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 30/07/2012

    [Resolvido]Mes iniciando dia 26 e terminando dia 25 Empty Re: [Resolvido]Mes iniciando dia 26 e terminando dia 25

    Mensagem  wellingtoneo em 23/4/2018, 20:53

    Bom na verdade esta é só uma forma de resolver o problema... fiz mais complexa e com um possível erro para estimula-lo a investigar e entender a expressão...

    outra forma da expressão seria:

    SeImed(Dia([Data])<=25;Format([Data];"mmmm/yyyy");SeImed(Mês([Data])<12;Format(Mês([Data])+1 & "/" & Ano([Data]);"mmmm/yyyy");Format("01/" & Ano([Data])+1;"mmmm/yyyy")))

    E sim, isolei o mês 12, para poder fazer a montagem do Mês 01 e a virada para o próximo ano.


    Ex:

    Data: 26/12/2018 - Mês / Ano: Janeiro/2019.
    Data: 27/12/2019 - Mês / Ano: Janeiro/2020.
    Data: 28/12/2020 - Mês / Ano: Janeiro/2021.
    Data: 29/12/2021 - Mês / Ano: Janeiro/2022.
    Data: 30/12/2022 - Mês / Ano: Janeiro/2023.
    Data: 31/12/2023 - Mês / Ano: Janeiro/2024.

    Até mais!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Mes iniciando dia 26 e terminando dia 25 Empty Re: [Resolvido]Mes iniciando dia 26 e terminando dia 25

    Mensagem  FabioPaes em 23/4/2018, 21:14

    A comparação que o Amigo fez la em cima (Mês <= 11, e na outra expressão = 12) é pra não correr o risco de add 1 mês ao mês dezembro, e ficar mês Treze.




    Porem, eu entendi sua Dúvida um POuquinho diferente...

    Ex: Se a data for 26/12/2018??? Devo considerar Janeiro/2019????

    Se for, segue a Formula: (Quase a mesma Formula do Amigo a cima, um pouco mais simplificada e menor, mas os fundamentos são os mesmos)
    Expr3: Format(SeImed(Dia([dt])<26;Format([dt];"mm/yyyy");SeImed(Dia([dt])>25 E Mês([dt])<12;Mês([dt])+1 & "/" & Ano([dt]);"01" & "/" & Ano([dt])+1));"mmmm/yyyy")


    Primeiro eu Verifico se o dia é Menor que 26, se for eu sei que deve ficar naquele mês! Então eu Já Formato;
    Depois eu Verifico se o dia é Maior que 25 e o Mês é menor que 12, se for eu sei que devo colocar no Mês seguinte, então +1 somente no Mês;
    Se Não for Nenhum desses casos, então é maior que 25 e o Mês é 12, então eu add +1 no Mê e +1 no Ano.

    Por Final, eu Formato tudo o formato Pretendido!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    lesniovski
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 04/10/2012

    [Resolvido]Mes iniciando dia 26 e terminando dia 25 Empty Re: [Resolvido]Mes iniciando dia 26 e terminando dia 25

    Mensagem  lesniovski em 24/4/2018, 03:35

    Muito Obrigado Pessoal

    As duas alternativas funcionaram corretamente.

    Marcando o tópico como resolvido.

    Um grande abraço
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Mes iniciando dia 26 e terminando dia 25 Empty Re: [Resolvido]Mes iniciando dia 26 e terminando dia 25

    Mensagem  FabioPaes em 24/4/2018, 13:06

    Bacana amigo! Qnd comecei a postar o Amigo  wellingtoneo Ainda não tinha postado, por isso postei a correção e a explicação da Formula! Mas Ambas estão corretas!
    Grato pelo Retorno! Até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 27/10/2020, 06:30