Mat - E' Sabato O Domenica???

Visual # A volte, specialmente in programmi gestionali, e' utile sapere se una
determinata data cade di sabato o domenica. Ecco una routine che svolge questo
lavoro:
Function ControllaGiorno(Giorno as variant, Flag as integer ) as variant
' La variabile flag indica se la funzione deve restituire il

' nome del giorno o un valore boolean ( Vero/ Falso)

if Flag then
select case weekday(Giorno)
case vbSaturday
ControllaGiorno = "Sabato"
case vbSunday
ControllaGiorno = "Domenica"
case else
ControllaGiorno = vbNull
end select
else
select case weekday(Giorno)
case vbSaturday, vbSunday
ControllaGiorno = true
case else
ControllaGiorno= false
end select
end if
End Function