[VB] La funzione |èOggiFesta = "Capodanno"|

[darkblOOd]

Originariamente inviato da xegallo

Function isFesta(ByVal Festa As Date) As Boolean
   Dim Fest(20) As Date
   Fest(0) = 1 / 1
   Fest(1) = 6 / 1
   '...
   For i = LBound(Fest) To UBound(Fest)
      If Festa = Fest(i) Then
         isFesta = True
         Exit Function
      Else
         isFesta = False
      End If
   Next i
End Function

in fondo basta solo segnare le festività


ot: ma non avevi detto che non postavi + codice?