Listar menores de 18

Question

Hola Buenas noches. 

Tengo este problema:

 Cree la clase persona ( clsPersona)  con los datos nombre, fecha de nacimiento, domicilio, mail. Utilizar una lista ( List) para guardar los datos de las personas. Programe los métodos necesarios que me permitan agregar, eliminar y buscar una persona. Además un método en la clase que, me devuelva una lista con aquellos personas menores de 18 años. 

Solo me falta la ultima opcion, poder listar los menores de 18? lo de mas ya esta!

Si me dan alguna pista o ayuda se los agradezco!!!!

Answer 1

Hola:
En un Form como el de la imagen

Copia y pega el siguiente codigo

Public Class FrmGenerica
    Private mListaPersona As New List(Of Persona)()

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        mListaPersona.Add(New Persona("José", "García", New DateTime(1940, 12, 2)))
        mListaPersona.Add(New Persona("Pedro", "López", New DateTime(1992, 2, 22)))
        mListaPersona.Add(New Persona("Antonio", "Pérez", New DateTime(1976, 6, 21)))
        mListaPersona.Add(New Persona("Pepe", "Trueno", New DateTime(1950, 12, 2)))
        mListaPersona.Add(New Persona("Paco", "Gotera", New DateTime(1960, 12, 2)))
        mListaPersona.Add(New Persona("Luis", "Roldan", New DateTime(1970, 12, 2)))
        mListaPersona.Add(New Persona("Manu", "Ruiz", New DateTime(1980, 12, 2)))
        mListaPersona.Add(New Persona("Patxi", "Rouco", New DateTime(1990, 12, 2)))
        mListaPersona.Add(New Persona("Ines", "Peral", New DateTime(1975, 12, 2)))
    End Sub

    Private Sub btnTodos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLTodos.Click
        Dim lTodos As New List(Of Persona)()
        lTodos = lF_Todos(mListaPersona)
        Me.DataGridView2.DataSource = lTodos
    End Sub

    Private Sub btnJovenes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJovenes.Click
        Dim lJovenes As New List(Of Persona)()
        lJovenes = lF_Jovenes(mListaPersona)
        Me.DataGridView1.DataSource = lJovenes
    End Sub

    Private Function lF_Todos(ByVal personas As List(Of Persona)) As List(Of Persona)
        Dim lLista As New List(Of Persona)()
        For Each persona As Persona In personas
            lLista.Add(persona)
        Next
        Return lLista
    End Function

    Private Function lF_Jovenes(ByVal personas As List(Of Persona)) As List(Of Persona)
        Dim lLista As New List(Of Persona)()
        For Each persona As Persona In personas
            If persona.FNacimiento.Year > 1975 Then
                lLista.Add(persona)
            End If
        Next
        Return lLista
    End Function
End Class

Un saludo desde Bilbo
Carlos