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]Como subtrair meses da data de hoje.

    Compartilhe

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 09/10/2017

    [Resolvido]Como subtrair meses da data de hoje.

    Mensagem  werlewow em 8/1/2018, 11:52

    Bom dia a todos.
    Tenho uma consulta que em um campo coloquei uma formula (conforme  foto em anexo) : 'Data_inicial: Mês(Agora())-4 . Ela me trás o mês indicado, ou seja, 4 meses a trás. Ate então estava funcionando certinho, porém com a virada do ano (2018) estragou tudo rsrs, pois agora ele me retorna -3 como resposta, e queria q retornasse o mes 9 (referente ao ano passado). Alguma ideia?

    Segue fotos

    obrigado
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 13/09/2016

    Re: [Resolvido]Como subtrair meses da data de hoje.

    Mensagem  José Machado em 8/1/2018, 14:12

    VBA.DateAdd("m", 1, Now() )

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 09/10/2017

    Re: [Resolvido]Como subtrair meses da data de hoje.

    Mensagem  werlewow em 8/1/2018, 15:37

    Nao entendi, isso é uma formula? onde coloco?
    Obrigado
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 13/09/2016

    Re: [Resolvido]Como subtrair meses da data de hoje.

    Mensagem  José Machado em 8/1/2018, 16:04

    Amigo...

    crie 2 campos de texto e um botão

    Option Compare Database

    Private Sub Comando4_Click()
    Adicionar_mes
    End Sub

    Sub Adicionar_mes()
    Dim mes As Integer
    On Error GoTo erro
    mes = Texto0
    Texto2 = Empty
    If mes = Empty Then
    Texto2 = Date
    ElseIf mes = 0 Then
    Texto2 = Date
    Else
    Texto2 = Format(VBA.DateAdd("m", mes, Now()), "dd/mm/YYYY")
    End If
    Exit Sub
    erro:
    MsgBox "Preencha um valor inteiro"
    Texto0.SetFocus
    End Sub

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 09/10/2017

    Re: [Resolvido]Como subtrair meses da data de hoje.

    Mensagem  werlewow em 8/1/2018, 16:58

    mas essa formula tenho em um campo de um consulta, entende? é um consulta que em um campo me informa qual é o mes de 4 meses atras, apenas isso. Nao tem como eu criar um botao

    obrigado
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 13/09/2016

    Re: [Resolvido]Como subtrair meses da data de hoje.

    Mensagem  José Machado em 8/1/2018, 17:10

    Mande um modelo de exemplo...

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 09/10/2017

    Re: [Resolvido]Como subtrair meses da data de hoje.

    Mensagem  werlewow em 10/1/2018, 12:36

    Nao consigo mandar um exemplo pois se trata do bando de dados da empresa.. Porem consegui resolver o problema trocando meses por dias, ao inves de 4 meses a tras, coloquei 120 dias..

    obrigado
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 308
    Registrado : 23/01/2017

    Re: [Resolvido]Como subtrair meses da data de hoje.

    Mensagem  thiagomcosta em 10/1/2018, 13:04

    Pode usar na sua consulta a seguinte expressão:

    Código:
    Mês(SomData("m";-4;Data()))

      Data/hora atual: 16/11/2018, 12:22