Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/10/2008, 10:31
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 2 meses
Puntos: 37
Respuesta: generar rango de fechas en vb 6.0

Cita:
Iniciado por vidalsoft Ver Mensaje
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.