U R G E N T E - Cálculo com Horas


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: U R G E N T E - Cálculo com Horas

Scaliburth

BELO HORIZONTE
MG - BRASIL

Postada em 19/08/2004 17:16 hs

Ola pessoal, estou com um problemão. Preciso pegar em um banco de dados vários registros com Horas, por exemplo "08:00", e fazer com que DESTA HORA inclua(multiplique) uns 30 registros em um outro banco de dados. Isso eu já consegui, só que meu problema é que eu consegui, multiplicar esses registros com o mesmo horário, no caso, "08:00" e preciso diferenciar um pouco cada registro multiplicado, por exemplo. 08:01, 07:55, 08:13, 08:03, 07:59 ... . Pensei em criar várias variaveis e subtrair, mas esta dando um erro nesta subtraçao ou adicao.

Gostaria de saber como faço para subtrair(ou somar) 00:05 minutos por exemplo de um text que armazena 08:00, fazendo com que ele passe a ser 07:55. Ou se alguem souber de uma outra maneira. Agradeço a todos, e por favor é Urgente mesmo.

Valeu

X-Crow Original

VITÓRIA
ES - BRASIL

ENUNCIADA !

Postada em 23/08/2004 15:01 hs

Sacaliburt... Basicamente vc teria de converter "08:00" do text para uma data... a partir dai vc faria um dateadd. Vou postar como vc pode fazer isso mas lembre que é um exemplo e vc precisa adaptar às suas necessidades:

' Voce precisa de um textbox(Name=text1), um commandButtom(Name=Command1) e 'um listbox(name List1)

'Cole num form em branco e faça o teste.

Private Sub Command1_Click()
Dim DataAtu As Date

DataAtu = CDate(Text1.Text)
MsgBox DataAtu
   List1.AddItem Format(Text1.Text, "HH:MM")
   For i = 1 To 12
      DataAtu = DateAdd("n", 5, DataAtu)
      List1.AddItem Format(DataAtu, "HH:MM")
      DoEvents
   Next i
End Sub

' Fim do código

Bem qq coisa poste novamente. Abraços, Sidnei

WaldirJr

POÇOS DE CALDAS
MG - BRASIL

Postada em 23/08/2004 15:36 hs

DateAdd("n", 15, "08:00")

Post Duplicado:

http://www.vbweb.com.br/forum_resp.asp?Codigo=168479

________________________

Té +

Que NIMB role bons Dados!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR