Identificare settimane

di il
1 risposte

Identificare settimane

Buongiorno a tutti,
in un'agenda access che sto gestendo avrei bisogno di identificare i mercoledì delle settimane pari (ad esempio il secondo ed il quarto mercoledì del mese) e distinguerli da quelli delle settimane dispari, che funzione potrei utilizzare?

grazie mille per l'aiuto.

1 Risposte

  • Re: Identificare settimane

    Precisazione, il 2° mercoledi del mese non è detto sia in settimana Pari... esempio il 2° Mercoledì di Maggio è in settimana 19, che è dispari.

    Quindi spiega se vuoi il 2° e 4° mercoledì del mese o se vuoi il Mercoledì della settimana pari, sono estremamente differenti le 2 condizioni.

    Il 2° Mercoledì del mese lo ricavi trovando il 1° e sommando 7gg, per trovare il 1° devi trovare il 1° gg del mese, e ricavarne il numero della settimana, e si usa questo
    
    FirstDayInMonth = Fix(DateSerial(Year(TuaData), Month(TuaData), 1))
    Trovato quello recuperi il Numero del gg della settimana per ricavare il Mercoledì
    
    FirstDayInMonthWeekNumber=weekDay(FirstDayInMonth ,vbMonday)
    Il primo mercoledì(che ha sempre Weekday=3) sarà
    
    FirstWednesdayInMonth= DateAdd("d",FirstDayInMonth ,3-FirstDayInMonthWeekNumber)
    Ora per calcolare il 2° sommi 7 per il 4° sommi 21
    
    SecondWednesdayInMonth= DateAdd("d",FirstDayInMonth ,10-FirstDayInMonthWeekNumber)
    FourthWednesdayInMonth= DateAdd("d",FirstDayInMonth ,24-FirstDayInMonthWeekNumber)
Devi accedere o registrarti per scrivere nel forum
1 risposte