Newsgroup: it.comp.appl.access
Titolo: S. Patrono..

Sto utilizzando la funzione ContaLavorativi che ho trovato sul sito comune.
E funziona. Però testando la funzione mi sono accorto che non tiene conto
del S, Patrono.
Capisco bene che non era possibile prevedre tutti i santi patroni, ma
secondo voi come potrei fare per completare la funzione.
Vi ringrazio fin da ora.
CARLO

 ha scritto nel messaggio
news:%c959.212836$vm5.6...@news2.tin.it...

Creati  una tabella "Festività" e se la data ricade in una delle "Festività"
sottrai un giorno.
Ovviamente tutto da codice.
Ciao, Carlo


Ho capito il concetto, ma per chi non ha grande capacità con i codici, anzi
ne è proprio digiuno, come posso orientarmi?
Manca l'esperienza....
Grazie comunque
Carlo

Inoltre se  la "sottrazione " la devo fare tra un periodo definito da due
date?
Sono un po' confuso.
Grazie
CARLO

 wrote in message
%c959.212836$vm5.6...@news2.tin.it...

Ipotizzando che il santo patrono cada il 29 giugno, la funzione XXX che sul
Sito Comune trovi scritta così:
Public Function Festivo(D As Date) As Boolean
   'Autore: Silvio Mazzetto
   'Accetta: una data
   'Restituisce: True se è un giorno festivo
   'Eventualmente inserire anche il Santo Patrono della città
   Dim Anno As Integer, DayMax As Date, DayMin As Date
   Anno = Year(D)
   If WeekDay(D) = 1 Then
      Festivo = True
      Exit Function
   End If
   If Day(D) = 1 And (Month(D) = 1 Or Month(D) = 5 Or Month(D) = 11) Or _
         Day(D) = 6 And Month(D) = 1 Or Day(D) = 25 And (Month(D) = 4 Or _
         Month(D) = 12) Or Day(D) = 15 And Month(D) = 8 Or (Day(D) = 8 Or _
         Day(D) = 26) And Month(D) = 12 Then
      Festivo = True
      Exit Function
   End If
   'intervallo in cui può cadere il Lunedì di Pasqua
   DayMax = DateValue("20/4/" & Anno)
   DayMin = DateValue("20/3/" & Anno)
   If WeekDay(D) = 2 And D <= DayMax And D >= DayMin Then
      If D = (Pasqua(Anno) + 1) Then
         Festivo = True
         Exit Function
      End If
   End If
   Festivo = False
End Function
Prova a modificarla in
Public Function Festivo(D As Date) As Boolean
   'Autore: Silvio Mazzetto
   'Accetta: una data
   'Restituisce: True se è un giorno festivo
   'Eventualmente inserire anche il Santo Patrono della città
   Dim Anno As Integer, DayMax As Date, DayMin As Date
   Anno = Year(D)
   If WeekDay(D) = 1 Then
      Festivo = True
      Exit Function
   End If
   If Day(D) = 1 And (Month(D) = 1 Or Month(D) = 5 Or Month(D) = 11) Or _
         Day(D) = 6 And Month(D) = 1 Or Day(D) = 25 And (Month(D) = 4 Or _
         Month(D) = 12) Or Day(D) = 15 And Month(D) = 8 _
         ' ***** confronto con il giorno del S. Patrono ******
         Or Day(D) = 29 And Month(D) = 6 _
         ' ****************************************
         Or (Day(D) = 8 Or _
         Day(D) = 26) And Month(D) = 12 Then
      Festivo = True
      Exit Function
   End If
   'intervallo in cui può cadere il Lunedì di Pasqua
   DayMax = DateValue("20/4/" & Anno)
   DayMin = DateValue("20/3/" & Anno)
   If WeekDay(D) = 2 And D <= DayMax And D >= DayMin Then
      If D = (Pasqua(Anno) + 1) Then
         Festivo = True
         Exit Function
      End If
   End If
   Festivo = False
End Function
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Grazie Roberto, ma osservando come era scritta la funzione, mi sono reso
conto di come potevano essere inserite altre festivitą e sono arrivato alla
stessa conclusione che tu mi hai suggerito.
Comunque ti ringrazio e ti saluto cordialmente.
Carlo