none
Comparar dos horas en Visual Basic.

    Pregunta

  • Hola!

    Necesito comparar dos horas, una que se ingresa por medio de un wuc y la hora es la del sistema.

    Un poco mas explicado, es un programa de control de visitadas que realizan los vendedores, el vendedor puede registrar la visita el mismo día que la va a realizar, pero la hora de la visita tiene que ser menor a la hora del sistema.  

    El vendedor al momento de ingresar una visita a realizar ingresa una fecha y hora de la visita, si el día es el día actual y la hora es menor a la hora del sistema el programa le debe tirar el mensaje "Ingrese una hora mayor a la hora actual", de lo contrario debe dejar guardar la visita.

    Me podrían ayudar, muchas gracias!


    miércoles, 18 de enero de 2017 18:17

Respuestas

  • JeanyTC,

    La comparación debe ser realizada entre instancias de fecha y tiempo:

    Dim FechaVisita As DateTime = New DateTime(2017, 1, 19, 10, 12, 10)
    
    If FechaVisita.CompareTo(DateTime.Now) <= 0 Then
    	'No es posible agendar una visita anterior a la fecha y hora actual
    Else
    	'Agendar visita
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    jueves, 19 de enero de 2017 19:11
  •       Dim fechadeldia As DateTime = DateTime.Parse(DateTime.Now)
            Dim fechavisita As DateTime = DateTime.Parse("2017/01/19 12:03:00.000")
            If fechadeldia.Date >= fechavisita.Date Then
    
                If fechadeldia.TimeOfDay > fechavisita.TimeOfDay Then
    
                 ' hacer algo
                Else
    
                End If
            End If


    Si la respuesta te fue útil vótala como tal,y si fue respuesta márcala. Solo dejo en el foro mis post si fueron útiles , de lo contrario y por mantener el orden los borro. Saludos. Lima-Perú.

    miércoles, 18 de enero de 2017 19:33

Todas las respuestas

  •       Dim fechadeldia As DateTime = DateTime.Parse(DateTime.Now)
            Dim fechavisita As DateTime = DateTime.Parse("2017/01/19 12:03:00.000")
            If fechadeldia.Date >= fechavisita.Date Then
    
                If fechadeldia.TimeOfDay > fechavisita.TimeOfDay Then
    
                 ' hacer algo
                Else
    
                End If
            End If


    Si la respuesta te fue útil vótala como tal,y si fue respuesta márcala. Solo dejo en el foro mis post si fueron útiles , de lo contrario y por mantener el orden los borro. Saludos. Lima-Perú.

    miércoles, 18 de enero de 2017 19:33
  • JeanyTC,

    La comparación debe ser realizada entre instancias de fecha y tiempo:

    Dim FechaVisita As DateTime = New DateTime(2017, 1, 19, 10, 12, 10)
    
    If FechaVisita.CompareTo(DateTime.Now) <= 0 Then
    	'No es posible agendar una visita anterior a la fecha y hora actual
    Else
    	'Agendar visita
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    jueves, 19 de enero de 2017 19:11