scusa mgmg su questa stringa che mi ai postato
gentilmente mi da errore chiamata di routine o argomento non valido
sulla riga DataF= dateadd(d, Intervallo, DataI)
DataI = "01/01/2005"
Intervallo = 3
DataF= dateadd(d, Intervallo, DataI)
GiornoSettimana = Weekday(DataF, vbMonday)
Select Case GiornoSettimana
Case 1 'Lunedì
Case 2 'martedì
Case 3
Case 4
Case 5
Case 6 'Sabato
DataF = dateadd(d, 1, DataF)
Case 7 'Domenica
DataF = dateadd(d, 2, DataF)
End Select