Views

Histats

Vitrine

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
Dash-006.jpg  Dash-018.jpg  Dash-028.jpg

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias