My Links

Blog Stats

Posts - 86
Stories - 0
Comments - 78
Trackbacks - 5

Archives

Post Categories

Image Galleries

TechDays 2007

Blogs

Sites

Visitantes

Login

Função que calcula a Idade

Private Function calculaIdade(ByVal data_nasc As Date) As Integer

Dim idade As Integer = DateTime.Now.Year - data_nasc.Year

If (DateTime.Now.Month < data_nasc.Month Or (DateTime.Now.Month = data_nasc.Month And DateTime.Now.Day < data_nasc.Day)) Then

idade = idade - 1

End If

Return idade

End Function

posted on Tuesday, July 04, 2006 8:01 AM

# re: Calcular Idade
Helder Magalhães
Posted @ 7/4/2006 7:00 PM
Eu tinha esta função num módulo que ponho algumas funções que utilizo em base regular.
Penso que vai dar ao mesmo.

Public Function CalculateAge(ByVal DateStart As Date, ByVal DateEnd As Date) As Integer
Dim ReturnValue As Integer = 0
ReturnValue = DateEnd.Year - DateStart.Year
If DateEnd.DayOfYear < DateStart.DayOfYear Then
ReturnValue -= 1
End If
Return ReturnValue
End Function

Já agora se calhar devias considerar usar AndAlso e OrElse assim caso a prmieira condição seja falsa o VB não precisa avaliar a condição seguinte.
# re: Calcular Idade
Simão
Posted @ 7/4/2006 7:13 PM
Olá Helder,
a tua função ainda está mais simples.
Na minha falta ainda o return :)

Title

Name

Url

Box Code

Comments

Remember Me?