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 : 316
    Registrado : 08/04/2018

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

    Mensagem  tombr 12/8/2021, 17:41

    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 9 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim 12/8/2021, 18:11

    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

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tombr 12/8/2021, 20:19

    Obrigado, Alexandre Fim

      Data/hora atual: 23/9/2021, 00:23