'scheletro della Function
'il parametro opzionale è impostato su False per default
'se True, esclude dal conteggio i sabati e le domeniche
Option Explicit
Function conteggio_date(data_iniziale As Date, data_finale As Date, Optional escludi_sab_dom As Boolean = False) As Long
Dim d As Long, i As Long
'calcoliamo la differenza tra le date espressa in giorni
d = data_finale - data_iniziale
For i = data_iniziale To data_finale
If escludi_sab_dom And (Weekday(i) = vbSaturday Or Weekday(i) = vbSunday) Then d = d - 1
Next
conteggio_date = d
End Function |