data6xb

seleziona richiedenti in funzione del limite di età imposto:
se età risulta => 20 inserisce in lista ammessi, altrimenti in lista non ammessi
variante di precedente con chiamata di procedura e MSGBOX,
con inserimento nome, età, limite da tastiera
uso di Function, True, False, If

vedi data7.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)
Call ammesso
Else
ListBox3.AddItem (nome & " " & eta)
Call nonammesso
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

Private Sub ammesso()
MsgBox ("ammesso")
End Sub

Private Sub nonammesso()
MsgBox ("non ammesso2")
End Sub