data6x

seleziona richiedenti in funzione del limite di età imposto:
se età risulta => 20 inserisce nome in lista ammessi, altrimenti in lista non ammessi
inserimento da tastiera di nome, età, limite per selezione

uso di Function, True, False, If

vedi data6.ppt

Private Sub CommandButton1_Click()
Dim eta As Date
Dim nome As String
nome = TextBox2.Text
eta = TextBox1.Text
Label4.Caption = Year(Date) & " " & Year(eta) & " " & " anni=" & Year(Date) - Year(eta)
ListBox1.AddItem (nome & " " & eta)
If verifica(eta) Then
ListBox2.AddItem (nome & " " & eta)
Else
ListBox3.AddItem (nome & " " & eta)
End If
End Sub

Private Function verifica(eta As Date)
Dim dx As Date
Dim annocorrente As Date
dx = Year(eta) + 20
annocorrente = Year(Date)
If dx <= annocorrente Then ' supera o uguaglia limite di 20 anni
verifica = True
Else
verifica = False
End If
End Function