Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
subtratir horas
-
- Colaborador
- Mensagens: 35
- Registrado em: Sex Jan 28, 2011 9:02 pm
subtratir horas
Olá amigos do forum, estou querendo subtratir as horas e estou tendo dificuldade, veja bem, estou com um formulario e neste formulario tenho 3 texbox texbox1, texbox2 e texbox3 quero digitar um hora no texbox1 ex: 21:00 e no texbox2 23:30 no texbox3 quero o resultado subtraido dessas duas horas, ou seja no texbox3 aparecerá 02:30 pq é 23:30 - 21:00 que vai da 02:30 é isso galera o primeiro problema é esse ai o segundo problema é dentro desse mesmo formulario, sabendo que o resultado da hora foi de 02:30 quero calcular essa hora em cima de um valor por exemplo o valor da hora é 10,00 reias então criei outro texbox o texbox4 para colocar esse valor de 10,00 reais e no texbox5 sairá o resultado da multiplicação entre 02:30 x 10,00 por hora que o resultado seria 25,00 reais é isso galera vou aguardar a ajuda e desde ja agradeço a todos, um abraço.
Re: subtratir horas
Bom dia,
Veja se este código atende:
Abraço
Veja se este código atende:
Código: Selecionar todos
Private Sub CommandButton1_Click()
Dim t1 As Date, t2 As Date, t3 As Date
t1 = TextBox1.Value
t2 = TextBox2.Value
t3 = t2 - t1
TextBox3.Value = t3
TextBox4.Text = Format((Hour(t3) + Minute(t3) / 60) * 10, "###.#0")
End Sub
-
- Colaborador
- Mensagens: 35
- Registrado em: Sex Jan 28, 2011 9:02 pm
Re: subtratir horas
Amigo obrigado pela sua ajuda e atenção, mais o codigo que vc passou está dando erro no campo da hora esta aparecendo uma data, não dizer pq, mais de qualquer forma valeu, mais espero pela ajuda, obrigado.