Como Fazer Uma Agenda De Consulta

[mestre fyoda]

tipo que tava desenvolvendo mas deu erro .

eu quero fazer o seguinte .

na listview apresentar as horas para o funcionario poder ver .

no meu programa se eu fizer 14:00 , 13:00 e 8:00 da erro .

na listview q vai aparece as horas eu quero as horas em ordem das 8:00 as 18:00

[mestre fyoda]

eu já tive uma ideia mas o problema é q não to achando um exemplo de função q soma em 30 em 30 minutos uma variavel .

procurei no forum e no google por TimeValue e TimeSerial e não achei .

me ajudem por favor .

[mariozneto]

Cara eu não entendi sua pergunta ??????

Tente explicar um pouco melhor!!!!

Falow... T+

[mestre fyoda]

eu tenho uma hora para somar . ela inicia em 8:00 e eu queria ir somando em 30 minutos .

como eu faço ?

[mariozneto]

eu tenho uma hora para somar . ela inicia em 8:00 e eu queria ir somando em 30 minutos .

como eu faço ?

Veja se é isso:

Dim hora As Double
Private Sub Command1_Click()
  hora = hora + 10
  lblhora.Caption = Format(DateAdd("h", hora, Time), "hh:mm:ss")
End Sub
Private Sub Form_Load()
  hora = 0
End Sub

Falow... T+