MAIOR DE IDADE

RENNERFERNANDES 17/03/2010 16:32:59
#337208
Como faço para verificar se uma pessoa é maior de idade. Na rotina que montei, o sistema apenas verifica o ano, como faço para verificar com mês e dia?
ASHKATCHUP 17/03/2010 16:40:18
#337210 Resposta escolhida
Fiz essa função na corrida. Acho que está funcionando. Basta você verificar se o resultado é menor que 18. Lembrando que a data tem que ser passada no formato dd/mm/yyyy



Private Sub Form_Load()
    [ô]
    Me.Caption = func_Idade([Ô]02/12/1990[Ô])
    [ô]
End Sub

Private Function func_Idade(sDataNascimento As String)
    Dim iAno                                      As Integer
    Dim iMes                                      As Integer
    Dim iDia                                      As Integer
    [ô]
    iAno = Format(sDataNascimento, [Ô]yyyy[Ô])
    iMes = Format(sDataNascimento, [Ô]mm[Ô])
    iDia = Format(sDataNascimento, [Ô]dd[Ô])
    [ô]
    If Month(Now) < iMes Or (iDia < Day(Now) And Month(Now) = iMes) Then
        iAno = iAno + 1
    End If
    [ô]
    func_Idade = (Year(Now) - iAno)
    [ô]
End Function
RENNERFERNANDES 17/03/2010 21:22:25
#337243
Vlw amigo
Tópico encerrado , respostas não são mais permitidas
Voltar