VB6 e dateadd

[micheler]

cosi funziona
Private Sub Command1_Click()
Dim data1, data2, j As Date
data1 = CDate("01/01/2016")
data2 = CDate("01/12/2016")
j = data1
Do While j < data2

j = DateAdd("m", 1, j)
Text1.Text = Text1.Text & j & vbCrLf
Loop

End Sub

[oregon]

cosi funziona

Ed è così che devi fare ... magari impostando tutte le variabili come date

Dim data1 As Date, data2 As Date, j As Date

La DateAdd restituisce una nuova data non un intervallo da usare nella Step

[micheler]

Infatti l'intervallo era sempre di 31 giorni fisso e immutabile

Si le variabili le ho impostate : Dim data1, data2, j As Date

ciao e grazie