selezione con limite imposto con vba

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
variante di precedente con
chiamata di procedura e MSGBOX,

con inserimento nome, età, limite da tastiera
uso di Function, True, False, If


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

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