giorni lavorativi del mese

[cicuta]

Ciao, chi mi può dare una mano, un consiglio, forse ha già affrontato il problema.....come faccio a calcolare i giorni lavorativi di un mese?. Esempio: Quanti gg lavorativi ha il mese di novembre 2003....

Per ora ho trovato la funzione datediff()...

[Sypher]

Function GiorniLavorativi(DataInizio As Date, DataFine As Date) As Integer 
    Dim GiornoSettimana As Integer 
    GiorniLavorativi = 0 
    While DataInizio <= DataFine 
        GiornoSettimana = Format(DataInizio, "w") 
        If (GiornoSettimana <> vbSaturday) And (GiornoSettimana <> vbSunday) Then GiorniLavorativi = GiorniLavorativi + 1 
        DataInizio = DateAdd("d", 1, DataInizio) 
    Wend 
End Function

P.S. vedi se funziona perchè l'ho trovato con google...non mi andava di scriverla,però mi sembra buona!

[cicuta]

provo subito e ti faccio sapere.... Grazie.
Devo essere cecato di brutto perchè in google non avevo trovato nulla io!

[cicuta]

funziona alla grande!. Grazie mille di nuovo...