Visual Basic.NET - calcular diferencia de fechas y horas

 
Vista:

calcular diferencia de fechas y horas

Publicado por Jose Antonio (1 intervención) el 12/03/2006 20:42:13
HOLA, QUE TAL; MI PROBLEMA ES EL SIGUIENTE:

*DESEO QUE EL SISTEMA ME COLOQUE LA HORA ACTUAL EN UN TEXT BOX1
Y A LA HORA DE QUE LE DE CLICK EN UN BOTON ME MUESTRE LA HORA ACTUAL EN UN TEXT BOX2 Y POR CONSIGUIENTE EN UN TEXTBOX3 SE MUESTRE LA DIFERENCIA EN MINUTOS A FIN DE QUE PUEDA MULTIPLICAR ESTE RESULTADO POR UN PRECIO,
CABE MENCIONAR QUE ES PARECIDO AL CONTROL DE UN CIBER CAFE EN CUANTO A TIEMPO DE RENTA.
* POR OTRO LADO TENGO OTRO PROBLEMA: QUIERO CALCULAR LA EDAD ACTUAL DE UNA PERSONA EN BASE A SU FECHA DE NACIMIENTO.

ESTOY PROGRAMANDO EN VB6 Y EN VB.NET 2003.

ESPERO ME PUEDAN AYUDAR CON EL CODIGO PARA ALGUNA DE ESTAS VERSIONES O SI SE PUEDE PARA LAS DOS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:calcular diferencia de fechas y horas

Publicado por HAF (1 intervención) el 14/03/2006 13:19:04
Dim totaltiempo As TimeSpan
hora2 =me.TextBox2.Text
hora1 =me.TextBox1.Text
totaltiempo = hora2.Subtract(hora1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular diferencia de fechas y horas

Publicado por emiro (1 intervención) el 05/10/2007 20:14:33
hola necesito un programa q se le introduzcan dos fecha y q la fecha 1 sea menosr q la fecha dos y me de la diferencia de horas (en visual vasic)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular diferencia de fechas y horas

Publicado por Jose David Marin (2 intervenciones) el 05/10/2007 21:36:53
La función DateDiff devuelve el número de intervalos de tiempo entre dos fechas.
Estos intervalos pueder ser años, meses, días, horas, minutos o segundos.

Prueba con esta función

Function sTiempo(dInicio As Date, dFin As Date) As String
sTiempo = Str((DateDiff("s", dInicio, dFin) \ 86400) Mod 365) & " días, "
sTiempo = sTiempo & Str((DateDiff("s", dInicio, dFin) \ 3600) Mod 24) & " horas, "
sTiempo = sTiempo & Str((DateDiff("s", dInicio, dFin) \ 60) Mod 60) & " minutos, "
sTiempo = sTiempo & Str(DateDiff("s", dInicio, dFin) Mod 60) & " segundos."
End Function

Lo que hace es calcular la diferencia en segundos y después ajustarla a dias, horas...

p.e. Imaginemos que en un TextBox (Text1) tienes una fecha en este formato "25/07/2007 15:00:00" y en otro (Text2) lo siguiente "26/07/2007 17:25:32"

Si haces una llamada a la función así:
Variable = sTiempo(Text1, Text2)
retornará la cadena "1 días, 2 horas, 25 minutos, 32 segundos."
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular diferencia de fechas y horas

Publicado por Alex (1 intervención) el 27/11/2008 01:10:51
Excelente función Master; me ayudo a salir de un problema similar...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular diferencia de fechas y horas

Publicado por Manuel (2 intervenciones) el 28/08/2014 19:50:35
Excelente
muchas 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
51
52
53
Private Sub Calcular_Tiempo_Faltante()
        Dim ta As String = Format(System.DateTime.Now, "HH:mm")
 
        Dim Resto As Integer = 0
        Dim F1 As DateTime = Tbl_Visitas.RowActual("Fec_Visita")                    ' fecha de inicio
        Dim F2 As DateTime = Tbl_Visitas.RowActual("Fecha_Salida")                    ' fecha de salida
        Dim Fa As DateTime = Format(System.DateTime.Now, "dd/MM/yyyy")     ' Fecha actual 
        Dim H1 As DateTime = Tbl_Visitas.RowActual("Hora_Ingreso")                  ' Hora de inicio
        Dim H2 As DateTime = Tbl_Visitas.RowActual("Hora_Salida")                   ' Hora de Salida
        H2 = Format(System.DateTime.Now, "HH:mm")
        Dim D As Integer = Tbl_Visitas.RowActual("Horas_Visita")             ' duracion en horas
        Dim T1 As DateTime = Format(F1, "dd/MM/yyyy") & " " & Format(H1, "HH:mm:ss")
        Dim T2 As DateTime = Format(Fa, "dd/MM/yyyy") & " " & Format(H2, "HH:mm:ss")
        Dim Tf As Long
 
 
        T1 = DateAdd(DateInterval.Hour, D, T1)
        'Lbl_Hora.Text = DateDiff(DateInterval.Hour, t2, t1, FirstDayOfWeek.Monday)
        'Lbl_Min.Text = DateDiff(DateInterval.Minute, t2, t1, FirstDayOfWeek.Monday)
        'Lbl_Sec.Text = DateDiff(DateInterval.Second, t2, t1, FirstDayOfWeek.Monday) / 3600
 
        Tf = DateDiff(DateInterval.Second, t2, t1)
 
        'Debug.Print("Horas: ", Lbl_Hora.Text) 'String.Format("{0:d/M/yyyy HH:mm:ss}", Tf))
        'Debug.Print("Min: ", Lbl_Min.Text)
        'Debug.Print("Seg: ", Lbl_Sec.Text)
        ' Lbl_T_Restante.Text = String.Format("0:{HH:mm:ss}", Tf) + " / " + Lbl_Hora.Text & " : " & Lbl_Min.Text & " : " & Lbl_Sec.Text
        Lbl_T_Restante.Text = sTiempo(t1, t2)
 
        '   Me.Refresh()
 
    End Sub
 
    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
        Try
            Calcular_tiempo_Faltante()
        Catch ex As Exception
 
        End Try
 
    End Sub
 
    Function sTiempo(dInicio As Date, dFin As Date) As String
        Dim Tiempo As String
        Tiempo = Str((DateDiff("s", dInicio, dFin) \ 86400) Mod 365) & " días, "
        Tiempo = Tiempo & Str((DateDiff("s", dInicio, dFin) \ 3600) Mod 24) & " horas, "
        Lbl_Hora.Text = Str((DateDiff("s", dInicio, dFin) \ 3600) Mod 24)
        Tiempo = Tiempo & Str((DateDiff("s", dInicio, dFin) \ 60) Mod 60) & " minutos, "
        Lbl_Min.Text = Str((DateDiff("s", dInicio, dFin) \ 60) Mod 60)
        Tiempo = Tiempo & Str(DateDiff("s", dInicio, dFin) Mod 60) & " segundos."
        Lbl_Sec.Text = 0
        sTiempo = Tiempo
    End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular diferencia de fechas y horas

Publicado por Jose David Marin (2 intervenciones) el 05/10/2007 21:37:28
La función DateDiff devuelve el número de intervalos de tiempo entre dos fechas.
Estos intervalos pueder ser años, meses, días, horas, minutos o segundos.

Prueba con esta función

Function sTiempo(dInicio As Date, dFin As Date) As String
sTiempo = Str((DateDiff("s", dInicio, dFin) \ 86400) Mod 365) & " días, "
sTiempo = sTiempo & Str((DateDiff("s", dInicio, dFin) \ 3600) Mod 24) & " horas, "
sTiempo = sTiempo & Str((DateDiff("s", dInicio, dFin) \ 60) Mod 60) & " minutos, "
sTiempo = sTiempo & Str(DateDiff("s", dInicio, dFin) Mod 60) & " segundos."
End Function

Lo que hace es calcular la diferencia en segundos y después ajustarla a dias, horas...

p.e. Imaginemos que en un TextBox (Text1) tienes una fecha en este formato "25/07/2007 15:00:00" y en otro (Text2) lo siguiente "26/07/2007 17:25:32"

Si haces una llamada a la función así:
Variable = sTiempo(Text1, Text2)
retornará la cadena "1 días, 2 horas, 25 minutos, 32 segundos."
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

duda

Publicado por DIEGO (1 intervención) el 03/04/2008 19:47:28
como estas amigo me podrias decir que tipo de variables son
hora2
hora1
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular diferencia de fechas y horas

Publicado por Edwin Marcelo (1 intervención) el 23/04/2009 22:50:00
como calcular la fecha y hora en visual basic
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Cesar
Val: 6
Ha disminuido su posición en 10 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RE:calcular diferencia de fechas y horas

Publicado por Cesar (3 intervenciones) el 01/08/2017 07:52:38
Ahora bien si quisiera mostrar el resultado de totaltiempo en un textbox como seria?, supongo que la instruccion de textbox.text=totaltiempo Me alojaria error
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular diferencia de fechas y horas

Publicado por Alexander (1 intervención) el 31/08/2009 18:56:17
Mi preblema es el siguiente:
Debo hacer un programa que permita calcular la liquidacion de un empleado, para lo cual debo calcular la fecha de inicio y una fecha final.

Les agradezco su calaboracion.

Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

calcular diferencia de fechas y horas

Publicado por juan duran (1 intervención) el 13/09/2020 00:27:14
1
2
3
Dim ts As TimeSpan = Convert.ToDateTime(thora_sal_x).Subtract(Convert.ToDateTime(thora_ent_x))
Dim horas As Int32 = ts.Hours
Dim minutos As Int32 = ts.Minutes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar