data4x

gestione codice numerico relativo a giorni e uso della variabile WeekDay
assegnazione valori con #...#
ricerca del valore numerico corrispondente al giorno della settimana
modifica dell'ordine numerico dei giorni usando vbnomegiorno

Private Sub CommandButton1_Click()
Rem fornisce numero relativo a giorno 1,2...6,7 1domenica,2lunedi...6 venerdi,7sabato
ListBox1.AddItem (Weekday(Date))
ListBox1.AddItem (Weekday(#1/29/2010#)) ' mese,giorno,anno assegnato
Rem modificare assegnazione ordine numerico es.lunedi da 2 a 1
Rem se lunedi diventa 1 allora venerdi diventa 5
ListBox1.AddItem (Weekday(#1/29/2010#, vbMonday))
ListBox1.AddItem (Weekday(Date, vbSaturday))

End Sub

vedi data4.ppt