MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Data nascimento versus Idade Atual

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Data nascimento versus Idade Atual Empty [Resolvido]Data nascimento versus Idade Atual

    Mensagem  tombr Qui Ago 12, 2021 1:41 pm

    Olá,

    Alguém poderia, por favor, me ajudar a corrigir a Idade Atual.

    Por Exemplo:
    Pedro nasceu em 10/10/1980 ele tem na data de hoje 40 anos, mas no meu "projeto" o resultado foi 41 anos.

    Código:
    Option Compare Database

    Private Sub DataNascIdade_AfterUpdate()
         AtualizaIdade
    End Sub

    Public Sub AtualizaIdade()
    Dim vData As Date
    Dim vIdade As Variant
        
        If IsNull(Me.DataNascIdade) Or Trim(Me.DataNascIdade) = Empty Then Exit Sub
        vData = CDate(Mid(Me.DataNascIdade, 1, 2) & "/" & Mid(Me.DataNascIdade, 3, 2) & "/" & Mid(Me.DataNascIdade, 5, 4))
        vIdade = DateDiff("yyyy", Format(vData, "mm/dd/yyyy"), Date)
        Me.DataNascIdade.Value = Empty
        Me.DataNascIdade.InputMask = Empty

        Me.DataNascIdade.SetFocus
        Me.DataNascIdade.Value = vData & " - (" & vIdade & " Anos)"

    End Sub
    Anexos
    [Resolvido]Data nascimento versus Idade Atual AttachmentDNasc x IdAtual.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 14 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2683
    Registrado : 13/12/2016

    [Resolvido]Data nascimento versus Idade Atual Empty Re: [Resolvido]Data nascimento versus Idade Atual

    Mensagem  Alexandre Fim Qui Ago 12, 2021 2:11 pm

    Tom,

    Copie e cole o código na sub AtualizaIdade:

    Código:


    Public Sub AtualizaIdade()
    Dim vData As Date
    Dim vIdade As Variant
       
        If IsNull(Me.DataNascIdade) Or Trim(Me.DataNascIdade) = Empty Then
            Me.DataNascIdade = "Sem informação"
            Exit Sub
        End If
       
        vData = CDate(Mid(Me.DataNascIdade, 1, 2) & "/" & Mid(Me.DataNascIdade, 3, 2) & "/" & Mid(Me.DataNascIdade, 5, 4))
       
        vIdade = DateDiff("yyyy", vData, Now)
        If Date < DateSerial(Year(Now), Month(vData), Day(vData)) Then
            vIdade = vIdade - 1
        End If
       
        Me.DataNascIdade.Value = vData & " - (" & vIdade & " Anos)"

    End Sub


    Resolvido.

    Boa sorte


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Data nascimento versus Idade Atual Setinf11
    Sistemas e Tecnologia Ltda

    njssantos e tombr gostam desta mensagem

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 08/04/2018

    [Resolvido]Data nascimento versus Idade Atual Empty Re: [Resolvido]Data nascimento versus Idade Atual

    Mensagem  tombr Qui Ago 12, 2021 4:19 pm

    Obrigado, Alexandre Fim

      Data/hora atual: Seg Nov 28, 2022 11:51 am