selezione utenti con vba

selezione utenti in funzione di limite età imposto

seleziona richiedenti in
funzione del limite di età imposto:
se età risulta => 20 inserisce nome in lista ammessi,
altrimenti in lista non ammessi
inserimento da tastiera di nome, età, limite per selezione

uso di Function, True, False,
If


http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/data6x.htm

http://digilander.libero.it/francescovise/visualpre/data6.ppt

Private Sub CommandButton1_Click()
Dim eta As Date
Dim nome As String
nome = TextBox2.Text
eta = TextBox1.Text
Label4.Caption = Year(Date) & " " & Year(eta)
& " " & " anni=" & Year(Date) –
Year(eta)
ListBox1.AddItem (nome & " " & eta)
If verifica(eta) Then
ListBox2.AddItem (nome & " " & eta)
Else
ListBox3.AddItem (nome & " " & eta)
End If
End Sub

Private Function
verifica(eta As Date)

Dim dx As Date
Dim annocorrente As Date
dx = Year(eta) + 20
annocorrente = Year(Date)
If dx <= annocorrente Then ‘ supera o uguaglia limite di 20
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...