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

    Cálculo entre datas

    Compartilhe

    papapo
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 04/12/2011

    Cálculo entre datas

    Mensagem  papapo em Sex 29 Set 2017, 19:47

    Boa tarde

    Criei um formulário de cadastro de pessoas: CodPessoa, NomePessoa, DataNascimento.
    Preciso criar um campo que me dê um aviso em caso da diferença da Data de hoje menos a dataNascimento seja =<7.
    Agradeço antecipadamente
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Cálculo entre datas

    Mensagem  thiagomcosta em Sex 29 Set 2017, 20:02

    Se for num formulário, coloque no evento "Após atualizar" do campo DataNascimento:

    Private Sub DataNascimento_AfterUpdate()
    If DateDiff("d", DataNascimento, Date) > 7 Then
    MsgBox "Maior que 7 dias"
    End If
    End Sub

    Se for para meses use "m", se for para anos use "yyyy".


    papapo
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 04/12/2011

    Cálculo entre datas

    Mensagem  papapo em Sex 29 Set 2017, 20:20

    Boa tarde

    Obrigado pelo auxílio, mas faltou algo.
    Acontece que quando a DataNascimento é cadastrada, constam dia, mês e ano.
    Se calcularmos o número de dias entre a DataNascimento e o dia de hoje, dará um número bastante grande.
    Necessito que seja calculada a diferença entre DataNascimento(só dd/mm) e datahoje(só dd/mm), obviamente que cuidando para as viradas de ano.

    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Cálculo entre datas

    Mensagem  thiagomcosta em Sex 29 Set 2017, 20:48

    Tente usar o parametro "y" no lugar do "d".
    Não sei bem como funciona a função com este parametro, mas acho que é isso que você precisa. Qualquer coisa dê uma olhada no help desta função (clique em cima de Datediff e aperte F1).

      Data/hora atual: Ter 21 Nov 2017, 21:13