[vb6] Calcolo giorni settimana successivi

[Antagonista]

Salve a tutti,
ho un applicazione di prenotazione in vb6

Ogni giovedì si effettua un corso.
Se il giorno giovedì 22 nov 2007 il corso è pieno voglio sapere le date dei prossimi 20 giovedì disponibili. Come posso fare?


Grazie 1000.

[cesco]

guarda io oh usta il DateAdd e ho fatto un ciclo...
per 20....in modo che hai 20 mercoledì....
cmq se parametrizzi anche il ciclo..ti tira fuori le date che vuoi con il DateAdd
dove "d" sta per gg..e 7 è il numero di gg..quindi ogni 7 giorni...
spero esserti stato utile..ciao

Dim sData As String, i As Integer
sData = "22/11/2007"
For i = 1 To 20

MsgBox DateAdd("d", 7, sData)
sData = DateAdd("d", 7, sData)
Next

[Antagonista]

Grazie 1000 era quello che cercavo.