data6xa

seleziona richiedenti in funzione del limite di età imposto:
se età risulta => 20 inserisce nome lista ammessi, altrimenti in lista non ammessi
con inserimento di nome, età, limite da tastiera (variante di data6x.htm)

uso di Function, True, False, If

vedi data8.ppt

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

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