Cómo obtener el tiempo restante en Visual Basic

-
Hola, si me pueden ayudar a ver como decir el tiempo total que faltan para las 5 PM es decir si son las 3 .30 faltan 2 horas con 29 minutos con 50 segundos. ayuda. esto es lo que llevo (visual basic, gracias):

Public Class Form1
Dim horaactual As Date
Dim horadestin As String = "17:00:00"
Private Sub tiempofaltante()
Dim hora As Long
Dim minutos As Long
Dim pruega As Long
Dim segundos As Long
Dim horaactual = Now
pruega = 0.0166667
Dim horadestino As Date = Date.Parse(horadestin)
hora = DateDiff("h", horaactual, horadestino)
minutos = DateDiff("n", horaactual, horadestino)
segundos = DateDiff("s", horaactual, horadestino)

Label5.Text = Format(hora, "Long Time")
Label6.Text = Format(minutos, "Long Time")
Label7.Text = Format(segundos, "Long Time")

End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = Format(DateAndTime.TimeOfDay, "hh") & ":"
Label2.Text = Format(DateAndTime.TimeOfDay, "mm") & ":"
Label3.Text = Format(DateAndTime.TimeOfDay, "ss")
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If (Val(Label1.Text) > 12) Then
Label4.Text = "AM"
Else
Label4.Text = "PM"
End If
End Sub

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
tiempofaltante()
End Sub

Private Sub Label7_Click(sender As Object, e As EventArgs)

End Sub


Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub
End Class
Ver más 

1 respuesta

Publicaciones
196
Fecha de inscripción
miércoles, 10 de enero de 2018
Estatus
Miembro
Última intervención
viernes, 11 de octubre de 2019
13
0
Gracias
hola Denis

después de hacer algunas pruebas ....

estabas muy cerca

este es tu codigo
Label5.Text = Format(hora, "Long Time")
Label6.Text = Format(minutos, "Long Time")
Label7.Text = Format(segundos, "Long Time")


este es el codigo "corregido" ...
Label5.Text = Format(hora, "Long Time")
Label6.Text = Format(minutos, "Long Time") - (hora * 60)
Label7.Text = Format(segundos, "Long Time") - (minutos * 60)


Saludos
Comenta la respuesta de misterdekus