variante selezione con limite

selezione utenti in funzione di limite età imposto

seleziona richiedenti in
funzione del limite di età imposto:
se età risulta => 20 inserisce in lista ammessi, altrimenti
in lista non ammessi
con inserimento nome, età, limite da tastiera
chiamata di procedura e
MSGBOX
data9 variante di
precedente: nuovo listbox4 con visualizzazione dati dei
richiedenti:
una riga di codice nuova
uso di Function, True, False, If


http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/data6xc.htm
http://digilander.libero.it/francescovise/visualpre/data9.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)
ListBox4.AddItem (nome & " "
& Year(Date) & " " & Year(eta) & "
" & " anni=" & Year(Date) – Year(eta)
& " " & limite)

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

Annunci

Informazioni su fumarino

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

Rispondi

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...