Idade()

Calculo da idade

Function Idade(ByVal datanascimento)
    Dim n1, n2, dataatual
    dataatual = Now()
    If Month(dataatual) >= Month(datanascimento) Then
        If Day(dataatual) >= Day(datanascimento) Then
            n1 = Year(dataatual)
            n2 = Year(datanascimento)
            idade = n1-n2
        Else
            n1 = Year(dataatual)
            n2 = Year(datanascimento)
            idade = n1-n2-1
        End If
    Else
        n1 = Year(dataatual)
        n2 = Year(datanascimento)
        idade = n1-n2-1
    End If
End Function