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 |