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

    Compartilhe

    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

    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)
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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.

    lesniovski
    Novato
    Novato

    Respeito às Regras 100%

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

    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
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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!

    lesniovski
    Novato
    Novato

    Respeito às Regras 100%

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

    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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: 17/11/2018, 03:03