VBA: Função que retorna idade.

|Blog Office VBA |Blog Excel |Blog Access |
 
Dashboards & Scorecards
 

Como retornar a idade a partir da data do Nascimento?

Public Function AnosdeIdade(ByVal datBirthDate As Date) As Integer
   On Error GoTo PROC_ERR

  Dim intYears As Integer
 
  Let intYears = Year (Now) - Year (datBirthDate)

  If DateSerial(Year(Now), Month(datBirthDate), Day(datBirthDate)) > Now Then
     Let intYears = intYears - 1 ' Subtract a year if birthday hasn't arrived this year
   End If

  Let AnosdeIdade = intYears
 
PROC_EXIT:
  Exit Function
 
PROC_ERR:
  MsgBox "Erro: Nº" & Err.Number & ". " & Err.Description, , "AnosdeIdade"
 
  Resume PROC_EXIT
End Function