Horas en VB.net

Necesito que me ayudes en lo siguiente. En un formulario tengo 4 textbox en los cuales se ingresaran la hora de entrada a trabajar, la hora de salida a colación, la hora de entrada de colación y la hora de salida del trabajo, de un trabajador. Ademas existe un label en el cual se deberá mostrar la cantidad de horas que trabajo en el día. (Descontado las horas de colación)
¿Cómo puedo hacer esto?
Lo ideal debe ser que el label vaya cambiando a medida que se ingresan las horas.

2 Respuestas

Respuesta
1
Este seria el código para hacer eso, el formato de horas es el de 24Hrs. Un tipo de variable TimeSpan te permite conocer a detalle la información de la hora ya que tiene varias propiedades para el manejo de horas.
Public horas_sin_colacion As TimeSpan
Public resultado_colacion As TimeSpan
Private Sub calcular_hora()
If TextBox2.Text <> "" And TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" Then
Try
horas_sin_colacion = Convert.ToDateTime(TextBox4.Text) - Convert.ToDateTime(TextBox1.Text)
resultado_colacion = Convert.ToDateTime(TextBox3.Text) - Convert.ToDateTime(TextBox2.Text)
Label1.Text = horas_sin_colacion.Hours - resultado_colacion.Hours
Catch ex As Exception
End Try
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
calcular_hora()
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
calcular_hora()
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
calcular_hora()
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
calcular_hora()
End Sub
Muchas gracias por tu pronta respuesta. Me sirvió bastante.
Ejemplo si el trabajador entra a las 8:00 sale a colación a las 13:00 vuelve de colación a las14:00 y se retira a las 18:00 el label me mostrara como resultado 9 hora de trabajo. Hasta hay estamos bien pero que pasa si el trabajador entra a las 8:00 y se retira a colación a las 14:¿00 y de hay no trabaja más?
Como esta el ejemplo no te hará las operaciones ya que solo hasta que están llenos todos los text realiza las operaciones, tendrías que poner como hora de salida 14:00 y hora de entrada a colación 14:00 para que te de como resultado 6 horas. O podrías agregar en:
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox3.Text == "" Then
   TextBox3.Text = TextBox2.Text
End If
If TextBox4.Text == "" Then
   TextBox4.Text = TextBox2.Text
End If
Lo otro que se n¡Me quedaba en el tintero; la hora yo la ingreso de esta forma HH:MM el resultado se puede mostrar de la misma manera (HH:MM).
Y que pasaría si el trabajador entra a las 08:00 se va a colación a las 13:00 y vuelve a las 14:30 y se retira a las 18:00 el label me sigue mostrando 9 y debería mostrar 8:30
Gracias de antemano.
Lo hice de rapido porque estoy trabajando pero creo que así quedaría, sino nada más juega entre als operaciones:
Public horas_sin_colacion As TimeSpan
Public resultado_colacion As TimeSpan
Public horas As Integer
Public minutos_colacion As Double
Public minutos_sin_colacion As Double
Private Sub calcular_hora()
If TextBox2.Text <> "" And TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" Then
Try
horas_sin_colacion = Convert.ToDateTime(TextBox4.Text) - Convert.ToDateTime(TextBox1.Text)
resultado_colacion = Convert.ToDateTime(TextBox3.Text) - Convert.ToDateTime(TextBox2.Text)
minutos_colacion = resultado_colacion.Minutes - horas_sin_colacion.Minutes
If minutos_colacion < 0 Then
minutos_colacion = minutos_colacion * -1
End If
horas = horas_sin_colacion.TotalHours - resultado_colacion.TotalHours
Label1.Text = horas
Label1.Text = Label1.Text & ":" & minutos_colacion.ToString()
Catch ex As Exception
End Try
End If
End Sub
Respuesta
La función DateDiff que se encuentra en la clase DateTime la puedes utilizar para realizar el calculo de la diferencia de las horas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Menuitem abrirlo con enter o automaticamente

Qué tal oye disculpa tengo un menuitem con ciertos datos que al dar el click con el mouse se abre al ejecutar mi programa... Pero no quisiera que lo hiciera con el click sino con el enter del teclado, hay manera? O igual que cuando se ejcute el...
2 respuestas

Visual redondea números y no quiero que redondee

Grracias por ayudarme de antemano Mi duda es la siguiente, soy novato hice un programa de altas y bajas en visual basic con base de datos en access si me da todos los datos y puedo modificar me va bien en todo, lo único es que al meter yo un numero...
1 respuesta

Sumar números(string) de 50,100 o más dígitos

Estuve probando lo que me dijiste pero no me funciono... Pero bueno... Tengo esto espero que me ayudes Lo que estoy tratando de hacer es sumar números de 50, 100 o más dígitos sumando a la antigua con reservas y todo... Como en la básica ... XD...
1 respuesta

Buscar por coincidencia con vb 2005 en base datos acce

Mi pregunta es como hacer para que mientras escribo en un texbox en otro seballan mostrando los registros que coincidan en la base de datos access con lo que esta en el texbox por favor ayudame ya que solo encuentro ejemplos para el sql
1 respuesta

¿Cómo meto datos en un datagrid de uno por uno?

Este es mi código y quiero que me ayudes en la ultima parte tengo 1 datagrid 2textbox 2 botones Lo que quiero es que al dar clic en un botón se agregue el nombre de un alumno y de su calificación hasta ahora solo se agregan 5 de golpe y quiero que se...
1 respuesta

Cambiar mayúsculas por minúsculas

Me basare en esta pregunta realizada por otro usuario "deseo saber como cambio las letras mayúsculas en un text a medida que se esta escribiendo. Me explico mejor: Estoy escribiendo en el text TODOEXPERTOS en mayuscula; pero necesito que a medida que...
1 respuesta

Evento changed de un numericupdow en visual 2008

Que tengo que hacer que mientras escriba algo en un numericupdow se ejecute por ejemplo una suma en una caja de texto, ¿Cuál seria el evento para este control o que tengo que hacer? *por ejemplo en el Private Sub NumericUpDown1_ValueChanged(ByVal...
1 respuesta

Combinar listbox y un textbox

Quisiera que me apoyaran, para seleccionar varioa números de un listbox y al irles dando clic, se pasen o se copien a un textbox. Utilizo este código, pero solo pasa un solo dato y necesito varios TextBox2 = ListBox2.Text
1 respuesta

Agregar mascara a un textbox

Nuevamente te tengo una nueva consulta Necesito poner una mascara a un textbox, de la siguiente manera La mascara que necesito poner es para el Tipo de documento de identificación Actualmente estoy utilizando un combobox y dos textbox, en el...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas