generar rango de fechas en vb 6.0

[vidalsoft]

Hola amigos de forosdelweb...
tengo el siguiente problema, con que controles o de que manera podria generar un rango de fechas y agregarlos a un datagrid la pulsar un boton, este evento debe capturar el valor de el primer textbox que sera la fecha incial y el segundo textbox que es la fecha final,... ejemplo:
20/05/2008 - 21/06/2008

en ese rango hay 30 dias ! , esos 30 dias deben agregarse a un datagrid masomenos asi...

20/05/2008
21/05/2008
22/05/2008
23/05/2008
....
...
...
21/06/2008

gracias de antemano.. vale ideas...

[Avellaneda]

Iniciado por vidalsoft

Hola amigos de forosdelweb...
tengo el siguiente problema, con que controles o de que manera podria generar un rango de fechas y agregarlos a un datagrid la pulsar un boton, este evento debe capturar el valor de el primer textbox que sera la fecha incial y el segundo textbox que es la fecha final,... ejemplo:
20/05/2008 - 21/06/2008

en ese rango hay 30 dias ! , esos 30 dias deben agregarse a un datagrid masomenos asi...

20/05/2008
21/05/2008
22/05/2008
23/05/2008
....
...
...
21/06/2008

gracias de antemano.. vale ideas...

Hola, primero decirte que el DataGrid es un control enlazado a datos, con lo cual tendrías que crear un recordset (aunque sea desconectado) para mostrar los datos en ese control, creo que mejor sería un MSFlexGrid o un ListVew si quieres un tipo rejilla.

Te pongo la forma de sacar los datos y en este caso los mostramos en un ListBox, después tú decides.

Código:

Private Sub Command1_Click()
Dim d As Integer, i As Integer, f As Date
f = Text1
d = DateDiff("d", f, Text2) + 1
For i = 1 To d
    List1.AddItem i & " " & f
    f = DateAdd("d", 1, f)
Next i
End Sub

Nota: Lo de mostrar el valor de 'i' por delante de la fecha, es para que compruebes que entre esas dos fechas hay 33 días naturales, y no 30.

[vidalsoft]

Gracias por la respuesta, es que despues de generar lso dias e incrustarlos en el datagrid habra otro boton que grabe todos esos dias a una bd de access en la tabla asistenicia_personal para que posteriormente visulizar el reporte e imprimirlo...

mira necesito automatizar esto mira la imagen:


espero tu ayuda gracias...

solo quiero generar algo asi. tengo conocimientos basicos de vb 6.0 pero me defiendo..
me intersa solo la tabla , generar esos dias por un rango de fechas como explique en el primer post.
entonces que me recomendarias el datagrid o MSFlexGrid ?

[Avellaneda]

Iniciado por vidalsoft

Gracias por la respuesta, es que despues de generar lso dias e incrustarlos en el datagrid habra otro boton que grabe todos esos dias a una bd de access en la tabla asistenicia_personal para que posteriormente visulizar el reporte e imprimirlo...

...

solo quiero generar algo asi. tengo conocimientos basicos de vb 6.0 pero me defiendo..
me intersa solo la tabla , generar esos dias por un rango de fechas como explique en el primer post.
entonces que me recomendarias el datagrid o MSFlexGrid ?

Bueno, hay dos cosas; si solamente lo quieres para ingresar los datos en la tabla ¿porqué un control intermedio?, inserta los datos directamente en la misma, y ¿los otros datos (campos) de la tabla ¿de dónde salen?



Bueno, hoy no te voy a poder contestar porque me voy ahora, que tengo prisa. ¡Buen finde!

[vidalsoft]

Iniciado por Avellaneda

Bueno, hay dos cosas; si solamente lo quieres para ingresar los datos en la tabla ¿porqué un control intermedio?, inserta los datos directamente en la misma, y ¿los otros datos (campos) de la tabla ¿de dónde salen?



Bueno, hoy no te voy a poder contestar porque me voy ahora, que tengo prisa. ¡Buen finde!

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..

[Chovo]

Te aconsejo convertir a formato de fecha lo que tengas en el textbox y a partir de ahi con un for ir añadiendo dias. Un ejemplo:

aux = Me.TextBox1.Text
dt = Format(aux)
For n = 0 To 9
Me.DataGrid1.Rows.Add(dt.AddDays(n))
Next

Con eso creas una columna con las fechas, siendo la primera lo que pusiste en el textbox.
No se si te servira eso...

Saludos

[Avellaneda]

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).