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

Annunci

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. 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...