subtratir horas

[joaofrancisco]

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.

[JValq]

Bom dia,

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

Abraço

[joaofrancisco]

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.

[joseA]

Estranho...
Testei aqui e deu tudo certinho.