RELOJ CON CUENTA HACIA ATRAS
Publicado por Denis (1 intervención) el 27/09/2019 16:50:12
Quiero hacer un programa que no solo sea reloj, si no que abajo me diga cuantas horas con tantos minutos y segundos faltan para que sean las 5 pm. Es un proyecto personal. El problema es que con la DareDiff solo obtengo valores totales de horas, minutos y segundos y todos en conjunto. Aquí está mi código. GRACIAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Class Form1
'Declaro mis variables
Dim horaactual As Date
Dim horadestin As String = "17:00:00"
Private Sub tiempofaltante()
'funcion sobre el calculo del tiempo
Dim hora As Long
Dim minutos As Long
Dim segundos As Long
Dim horaactual = NowDim horadestino As Date = Date.Parse(horadestin)
hora = DateDiff(DateInterval.Hour, horaactual, horadestino)
minutos = DateDiff(DateInterval.Minute, horaactual, horadestino)
segundos = DateDiff(DateInterval.Second, horaactual, horadestino)
Label5.Text = hora
Label6.Text = minutos
Label7.Text = segundos
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'El RELOJ DEL PROGRAMA
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
'FUNCION AM A PM
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
'ACTIVO EL LA FUNCION
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
Valora esta pregunta
0