Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

• Información del Perfil
  • Resumen
  • Mostrar Estadísticas
  • Mostrar Mensajes...
    • Mensajes
    • Temas
    • Adjuntos

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

2

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:



este es mi codigo:



funciona a medias al ponerle play



y me marca este error




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!

Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.

Abraham Lincoln (1808-1865) Presidente estadounidense.

aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación