|
Giorno della settimana Public Function GiornoSettimana(ByVal Mdata As Date) As String On Error GoTo errore Select Case WeekDay(Mdata) Case Is = FirstDayOfWeek.Sunday '1 Domenica (predefinita) GiornoSettimana = "Domenica" Case Is = FirstDayOfWeek.Monday '2 Lunedi' GiornoSettimana = "Lunedi'" Case Is = FirstDayOfWeek.Tuesday '3 Martedi' GiornoSettimana = "Martedi'" Case Is = FirstDayOfWeek.Wednesday '4 Mercoledi' GiornoSettimana = "Mercoledi'" Case Is = FirstDayOfWeek.Thursday '5 Giovedi' GiornoSettimana = "Giovedi'" Case Is = FirstDayOfWeek.Friday '6 Venerdi' GiornoSettimana = "Venerdi'" Case Is = FirstDayOfWeek.Saturday '7 Sabato GiornoSettimana = "Sabato" End Select Exit Function |