calcular a idade partindo da data de nascimento no access

Question

Olá,

como calcular a idade de uma pessoa usando a data de nascimento?

a fórmula eu a utilizo na consulta?

é preciso ter a coluna na consulta com a data atual?

nos formulários de entrada de dados, é necessário fazer algum controle diferente?

se na fórmula não tem erro de sintaxe mas na apresentação da consulta aparece #ERRO, o que devo fazer?

muito obrigado.

Célio Alves

Answer 1

Olá Célio,

você pode criar no VBA a seguinte função:

Public Function dhAge1(dtmBD As Date, _
 Optional dtmDate As Date = 0) As Integer
 
    ' From "Visual Basic Language Developer's Handbook"
    ' by Ken Getz and Mike Gilbert
    ' Copyright 2000; Sybex, Inc. All rights reserved.
       
    ' Thanks to Peter Mundy, on comp.databases.ms-access
    ' for fixing up a flaw in the original logic of this
    ' procedure.
   
    ' A shorter version of dhAge.
   
    Dim intAge As Integer
   
    If dtmDate = 0 Then
        ' Did the caller pass in a date? If not, use
        ' the current date.
        dtmDate = Date
    End If
    intAge = DateDiff("yyyy", dtmBD, dtmDate)
    dhAge1 = intAge + _
     (dtmDate < DateAdd("yyyy", intAge, dtmBD))
End Function

Na sua consulta, você cria um campo assim:

Idade: dhAge1([Teu campo data nascimento])

Não é preciso ter na conulta um campo com a data atual.

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br