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

    avatar
    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Como subtrair meses da data de hoje. Empty [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
    José Machado
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    VBA.DateAdd("m", 1, Now() )
    avatar
    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Como subtrair meses da data de hoje. Empty 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
    José Machado
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Como subtrair meses da data de hoje. Empty 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
    avatar
    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Como subtrair meses da data de hoje. Empty 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
    José Machado
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    Mande um modelo de exemplo...
    avatar
    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Como subtrair meses da data de hoje. Empty 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
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Como subtrair meses da data de hoje. Empty 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: 19/10/2020, 22:37