Avrei bisogno di una funzione che mi dica qunado ci sono le feste.

Ad esempio: "Il '31 Dicembre' deve restituirmi capodanno se il giorno è quello. Ma le feste sono parecchie, non ho voglia di scriverle tutte poi alcune non le so neppure, quindi come faccio?

io voglio fare una cosa cosi:


Private Const Gennaio = 1
Private Const Febbraio = 2
Private Const Marzo = 3
Private Const Aprile = 4
Private Const Maggio = 5
Private Const Giugno = 6
Private Const Luglio = 7
Private Const Agosto = 8
Private Const Settembre = 9
Private Const Ottobre = 10
Private Const Novembre = 11
Private Const Dicembre = 12


Function IsHoliday(Giorno, Mese As String)

If (Giorno = 25) And (Mese = 12) Then
IsHoliday = "Natale"
ElseIf (Giorno = 31) And (Mese = 12) Then
IsHoliday = "Capodanno"
Else
IsHoliday = ""
End If

End Function

La funzione che mi serve è questa, nn c' è qualcuno che c' è l' ha già?