[VB6] ricercare un periodo

[Mabi]

Ti basta usare la funzione DateAdd che aggiunge un valore del tipo indicato alla data scelta.
Prova così:

Dim MyData As Date
Dim Cont1 As Byte

MyData = Date
MyData = DateAdd("d", (-1 * DatePart("d", MyData)) + 1, MyData)
For Cont1 = 1 To Day(DateSerial(DatePart("y", MyData), DatePart("m", MyData) + 1, 0))
  MsgBox CStr(MyData)
  MyData = DateAdd("d", 1, MyData)
Next Cont1