none
Comparar horarios RRS feed

  • Pregunta

  • Buenas, soy nueva en este foro. 

    Estoy realizando un programa donde se registre un horario, y se agreguen marcas en el reloj cada día. (Control de ingresos)

    He buscado en varios foros y no encuentro solución a mi problema debido a que todos comparan las horas, pero yo necesito un case que registre "Llegada tarde", "falta", "en hora".

    Adjunto el código por si me pueden ayudar.

    Aclaro que soy bastante nueva en esto por lo que pueden haber varios errores.

      Public Sub compararhora(unamarca As clsMarca, unhorario As clsHorario)
            If cmbMarca.SelectedItem.ToString = "entrada" Then
    
                Dim tiempoI As TimeSpan = TimeSpan.Parse(unhorario.hrEntrada)
                Dim tiempoF As TimeSpan = TimeSpan.Parse(unamarca.hora)
                Dim dif As TimeSpan = tiempoF.Subtract(tiempoI)
                Dim minutos = dif.TotalMinutes.ToString
    
                Dim casos As String
                Select Case casos
                    Case minutos >= 15
                        unamarca.estado = "Falta"
                    Case minutos > 1 And minutos < 15
                        unamarca.estado = "Llegada tarde"
                    Case minutos <= 0
                        unamarca.estado = "En hora"
    
                End Select
    
            End If
        End Sub

    ¡Gracias!

     
    lunes, 6 de noviembre de 2017 5:16

Respuestas

  • Hola  BitGirl

    Con base a tu consulta, te voy a colocar el siguiente ejemplo que es sobre el Método Object.Compare(Object), que Compara dos objetos ()

    Public Module Example
       Public Sub Main()
          ' Create upper-case characters from their Unicode code units.
          Dim stringUpper As String = ChrW(&H41) + ChrW(&H42) + ChrW(&H43)

          ' Create lower-case characters from their Unicode code units.
          Dim stringLower As String = ChrW(&H61) + ChrW(&H62) + ChrW(&H63)

          ' Display the strings.
          Console.WriteLine("Comparing '{0}' and '{1}':",
                            stringUpper, stringLower)

          ' Compare the uppercased strings; the result is true.
          Console.WriteLine("The Strings are equal when capitalized? {0}",
                            If(String.Compare(stringUpper.ToUpper(), stringLower.ToUpper()) = 0,
                                              "true", "false"))

          ' The previous method call is equivalent to this Compare method, which ignores case.
          Console.WriteLine("The Strings are equal when case is ignored? {0}",
                            If(String.Compare(stringUpper, stringLower, true) = 0,
                                              "true", "false"))
       End Sub
    End Module
    ' The example displays the following output:
    '       Comparing 'ABC' and 'abc':
    '       The Strings are equal when capitalized? true
    '       The Strings are equal when case is ignored? true

    Quedamos al pendiente de cualquier actualización de tu parte

    Saludos Cordiales.

    Gracias por usar los foros de MSDN.

    Pablo Rubio
    _____
     
    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.
     
    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.
     
    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    jueves, 23 de noviembre de 2017 22:48
    Moderador