1
Aprender a programar desde cero / Calcular la diferencia entre Horas utilizando TimeSpan Visual Basic?
« en: 03 de Febrero 2017, 11:02 »
Buenas madrugadas!
aqui un novato intentando dar con bola!!
Estoy tratando de lograr una resta de horas en VB 2010 Express, el codigo funcionaba en VB6 mas no se que haya cambiado y no funciona aca...
Este es mi form:
![](http://s2.subirimagenes.com/otros/previo/thump_9681399form.jpg)
este es mi codigo:
![](http://s2.subirimagenes.com/otros/previo/thump_9681400codigo.jpg)
funciona a medias al ponerle play
![](http://s2.subirimagenes.com/otros/previo/thump_9681401ejecucion.jpg)
y me marca este error
![](http://s2.subirimagenes.com/otros/previo/thump_9681402error.jpg)
de antemano muchas gracias por su ayuda!!
Pegando el codigo:
Saludos!
aqui un novato intentando dar con bola!!
Estoy tratando de lograr una resta de horas en VB 2010 Express, el codigo funcionaba en VB6 mas no se que haya cambiado y no funciona aca...
Este es mi form:
![](http://s2.subirimagenes.com/otros/previo/thump_9681399form.jpg)
este es mi codigo:
![](http://s2.subirimagenes.com/otros/previo/thump_9681400codigo.jpg)
funciona a medias al ponerle play
![](http://s2.subirimagenes.com/otros/previo/thump_9681401ejecucion.jpg)
y me marca este error
![](http://s2.subirimagenes.com/otros/previo/thump_9681402error.jpg)
de antemano muchas gracias por su ayuda!!
Pegando el codigo:
Código: [Seleccionar]
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = TimeOfDay.ToString("HH:mm:ss")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label2.Text = Label1.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim t1, t2, t3 As Object
Label3.Text = Label1.Text
t1 = Format(Label1.Text, "HH:mm:ss")
t2 = Format(Label2.Text, "HH:mm:ss")
t3 = Format(Label3.Text, "HH:mm:ss")
Label4.Text = Format(TimeValue(t3) - TimeValue(t2), "HH:mm:ss")
End Sub
End Class
Saludos!