Cita:
Iniciado por vidalsoft 
Uso un control de intermedio (msflexgrid) porque necesito darle algunos cambios adicionales como poner en una columna observacion , si es dia feriado o esta de vacaciones etc.. una vez que ya estan los datos listos recien mediante un boton insertar los datos que se encuentra ya modificados en el control(msflexgrid).... los demas datos se generan..
Para generar el Grid y siguiendo con el ejemplo anterior:
Código:
Private Sub Command1_Click()
Dim d As Integer, i As Integer, f As Date
f = Text1
d = DateDiff("d", f, Text2) + 1
MSFlexGrid1.Rows = d + 1
For i = 1 To d
MSFlexGrid1.Row = i
MSFlexGrid1.TextMatrix(i, 0) = i ' en la primera col. ponemos el número de día
MSFlexGrid1.TextMatrix(i, 3) = f ' en la cuarta, la fecha
f = DateAdd("d", 1, f)
Next i
End Sub
Peviamente, p.e. en el evento Load() del Form, formatea el Grid (nº de columnas y encabezados).
