Sì hai ragione mancano gli "":
DataF= dateadd("d", Intervallo, DataI)
quindi:
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", 2, DataF)
Case 7 'Domenica
DataF = dateadd("d", 1, DataF)
End Select
C'era anche un altro errore nel case 6 e 7 dove avevo invertito i giorni da sommare alla data risultante del primo case.
Ciao
