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

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...