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

[jabjoint]

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à?

[darkblOOd]

no e cmq ti consiglio di usare il Select Case

[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

[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?

[xegallo]

Originariamente inviato da darkblOOd


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

si ma poi come vedi l'ho anche tolto dalla firma

[darkblOOd]

Originariamente inviato da xegallo
si ma poi come vedi l'ho anche tolto dalla firma

:metallica

è più forte di noi...quando sappiamo dobbiamo dire...non è vero?

a proposito, quanto ti ho detto in pvt ieri ti è servito? :master:

[xegallo]

Originariamente inviato da darkblOOd
:metallica

è più forte di noi...quando sappiamo dobbiamo dire...non è vero?

a proposito, quanto ti ho detto in pvt ieri ti è servito? :master:

non è che è + forte di me è che comunque dopo che ho spiegato "mi posti il codice?"

[darkblOOd]

Originariamente inviato da xegallo
non è che è + forte di me è che comunque dopo che ho spiegato "mi posti il codice?"

ah, certo, questo è inaccettabile....