Avrei la necessita' (date due date iniziale e finale) di elencare su un foglio excel i giorni interccorrenti.
Riesco a farlo cosi':
- Codice: Seleziona tutto
gio = (CDate(Testo191) - CDate(Testo188)) + 1
riga = 13
For x = 1 To gio
If Weekday((CDate(Testo188.Value + x))) <> 1 And Weekday((CDate(Testo188.Value + x))) <> 7 Then
riga = riga + 1
objWorksheet.Cells(riga, 1).Value = ((CDate(Testo188.Value + x)))
End If
End If
Next x
End If
che funziona perfettamente fino a quando le date sono ricomprese nello stesso mese.
Se infatti provo a vedere l'intervallo tra 31/01/2013 ed il 06/02/2013, la routine da' subito errore perche pone
((CDate(Testo188.Value + x))) = 32
Come potrei risolvere ?
Grazie