Visual Basic - MSflexgrid

necesito si alguien sabe, como hacer un msflexgid o un datagrid fijo con filas que vallan desde la hora 08:00 hasta las 22:00, y asi poder acomodar los datos que tengo en una base de datos segun la hora, osea, si tengo un registro en la base de datos que la hora es 10:00, entonces en el msflexgrid me aparecera el registro de la base de datos en la fila que dice 10:00

muchas gracias

Hola! Fijate este codigo.... agrega en un form un msflexgrid y copia el codigo en el evento load del form, con esto vas a obtener la grilla con los horarios, con respecto a determinar que registro va en cada hora, mientras llenas la grilla vas comparando contra la columna de las horas si coniciden lo pones ahi.
Bueno espero que te sirva.Saludos

Dim I As Integer
Dim Horas As Integer
Dim HoraInicio As Date

Horas = 15
HoraInicio = #8:00:00 AM#

With MSFlexGrid1
.FixedRows = 1
.FixedCols = 1
.Rows = Horas + 1
.Cols = 5
.ColWidth(0) = 1500

For I = 1 To Horas
.TextMatrix(I, 0) = DateAdd("h", I - 1, HoraInicio)
Next
End With

che esta muy bueno el codigo te lo agradesco mucho.
pero si me haces un ultimo fabor no te jodo mas
como puedo hace para que me salga la hora cada 15 min.
y como puedo hacer para cambiar el formato de hora, osea que salgan 24 hs

gracias sorry por ser pesado

ta' que jodido eres!

Hola! no me jode (no se quien contesto el mensaje anterior... en fin siempre hay un boludo) No entendi bien lo que queres, donde queres que aparesca la hora? y los de las 24hs tampoco, queeee? =) Saludos

si esta claro.

¿está claro? ¿Te joden todos los dias? sos un par de boludos as dos.
aki benimos a acer preguntas sobre tenmas de vb no a ligar kmo bos

liguense entre tu y Ariel, LostFocus!! ja

che poerdona yo no respondi la ultima nota yo, due algun boludo, che te cuento viste el codigo que me pasaste? bueno tenia que iba desde la hora 8:00 a 22:00 con separacion de una hora osea: 8:00, 9:00 yo quisiera si se puede que valla de 15 minutos 8:15, 8:30. y que no sea A.M. y P.M.
[email protected]

Hola! Bueno te envio como seria la modificacion, ahora te pregunto...estas haciendo un sistema para un cyber,no? aunque sea despues dejame navegar gratis.... jijjiji Saludos

Dim I As Integer
Dim Horas As Integer ' Cantidad de Horas a mostrar en la Grilla
Dim Minutos As Integer 'Cantidad de minutos por fraccion de tiempo
Dim Fracciones As Integer 'Cantidad de fracciones de tiempo en 60min. segun cantidad de minutos
Dim HoraInicio As Date 'Hora de inicio de la Grilla

Horas = 14
Minutos = 15
Fracciones = 60 / Minutos
'lo pongo en 7:45 para que en la grilla empiece a las 8:00
'porque como ves ya empieza agregandole minutos en la primer
'pasada del For
HoraInicio = #7:45:00 AM#

With MSFlexGrid1
.FixedRows = 1
.FixedCols = 1
.Rows = (Horas * Fracciones) + 1
.Cols = 5
.ColWidth(0) = 800

For I = 1 To Horas * Fracciones
.TextMatrix(I, 0) = Format(DateAdd("n", Minutos * I, HoraInicio), "Hh:Nn:Ss")
Next
End With

Sos un capo setfocus gracias

Nooooo que gracias.... son $500... ... jijiji Saludos.

No entiendo bien, ya que joda en mi pais, es cuando se penetra a una persona...
este tengo claro no es un foro gay, a no ser que "setfocus" sea mujer.

8-|