x mgmg

[angillieri]

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

[mgmg]

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

[angillieri]

grazie e scusa

[alka]

Chiudo questa discussione per gli stessi motivi indicati qui.