selezione in funzione di limite imposto

selezione utenti in funzione di limite età imposto

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


http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/data6xa.htm
http://digilander.libero.it/francescovise/visualpre/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

 





Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...