Cómo obtener el tiempo restante en Visual Basic

Denunciar
-
misterdekus
Message postés
244
Date d'inscription
miércoles, 10 de enero de 2018
Estatus
Miembro
Última intervención
domingo, 19 de enero de 2020
-
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

Message postés
244
Date d'inscription
miércoles, 10 de enero de 2018
Estatus
Miembro
Última intervención
domingo, 19 de enero de 2020
23
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