Cómo obtener el tiempo restante en Visual Basic

Cerrado
DENIS - Modificado el 30 sep 2019 a las 23:10
misterdekus Mensajes enviados 474 Fecha de inscripción miércoles, 10 de enero de 2018 Estatus Miembro Última intervención miércoles, 28 de agosto de 2024 - 10 oct 2019 a las 04:49
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

1 respuesta

misterdekus Mensajes enviados 474 Fecha de inscripción miércoles, 10 de enero de 2018 Estatus Miembro Última intervención miércoles, 28 de agosto de 2024 127
10 oct 2019 a las 04:49
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
0