Cálculos con textbox tiempo real
Hola como pueden ver en la imagen necesito:
- Calcular los días y horas de transito de documentos.
- Y que el calculo se muestre en tiempo real en un textbox.
2 respuestas
¡Gracias! Ok seria así:
Calcular:
- El tiempo transcurrido en días entre fecha recepción y fecha entrega gc.
- El tiempo transcurrido en horas entre hora r recepción y hora entrega gc.
- El valor resultante en tiempo real en el cuadro de texto tránsito total.
- En este cuadro de texto final se deben concatenar los dos resultados sería algo así:
nDías & nHoras:minutos
Con este ejemplo yo podría hacer lo mismo con los otros dos cálculos que seria
- El tiempo transcurrido en días entre fecha devolución y fecha corrección.
- El tiempo transcurrido en horas entre hora devolución y devolución .
- El valor resultante en tiempo real en el cuadro de texto tránsito correc.
Todos los demás botones y funciones del formulario ya están activas y funcionales solo me quedan dos detalles por resolver pero primero este, luego publico otra pregunta.
Pero debes realizar los cálculos utilizando los datos que pusiste en la imagen, debes realizar todas las operaciones para ver qué necesitas y también debes poner el resultado de cada operación
Así sería el calculo
Pon el siguiente código en tu userform
Actualiza los textbox1, 2, 3, 4 y 5 por los nombres de tus controles
Private Sub TextBox1_Change() 'fecha recepción Calcular_Transito_Total End Sub Private Sub TextBox2_Change() 'hora recepción Calcular_Transito_Total End Sub Private Sub TextBox3_Change() 'fecha entrega Calcular_Transito_Total End Sub Private Sub TextBox4_Change() 'hora entrega Calcular_Transito_Total End Sub ' Sub Calcular_Transito_Total() TextBox5.Value = "" If TextBox1.Value = "" Or Not IsDate(TextBox1.Value) Or _ TextBox2.Value = "" Or Not IsDate(TextBox2.Value) Or _ TextBox3.Value = "" Or Not IsDate(TextBox3.Value) Or _ TextBox4.Value = "" Or Not IsDate(TextBox4.Value) Then Exit Sub End If fec1 = CDate(TextBox1.Value) + TimeValue(TextBox2.Value) fec2 = CDate(TextBox3.Value) + TimeValue(TextBox4.Value) dif = fec2 - fec1 di = Int(dif) ho = Hour(dif) mi = Minute(dif) se = Second(dif) TextBox5.Value = di & " dias " & ho & " horas " & mi & " minutos " & se & " segundos" End Sub
Cada que modifiques un dato de las fechas o las horas, el textbox5 (tránsito total) se actualizará en automático.
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
