none
Rango de Fechas RRS feed

  • Pregunta

  • Hola buenos dias

    tengo un problema necesito validar un rango de fechas de la siquiente manera:

    en la base de datos guardo hora inicial   y hora Final , y que esta se pueda listar en las fechas respectivas cada una debe aparecer al lado la actividad a desarrollar

    Dim Tabla As New Table
            Tabla.CssClass = "Table"
            Dim tr As TableRow
            Dim td As TableCell

     For i As Integer = 0 To 49

    Dim Hora= Inicio.AddMinutes(30 * i).TimeOfDay

    tr = New TableRow
                td = New TableCell
                If i > 0 Then
                    ColumnaH = Today.Add(Hora).AddMinutes(-30)
                    td.Controls.Add(New LiteralControl(String.Format("<strong>{0}</strong>  ", Format(ColumnaH, "hh:mm tt"))))
                    td.Width = 100
                End If

    Dim query = (From f In Lis Where Hora >= CType(f.HORACALINI, TimeSpan)  And  CType(f.HORACALFIN, TimeSpan) <= Hora Select f).ToList

    If Lis.Count > 0 Then

    Dim Control As New HyperLink
                                        Control.ID = "Datosd" & CType(f.FECHACALINI, Date).Year & CType(f.FECHACALINI_FLUJOTRABAJO, Date).Month & CType(f.FECHACALINI, Date).Day & f.FLUJOTRABAJOID
                                        Control.NavigateUrl = "../../Formularios/Actividades.aspx?Formulario=Actividades&ID=" & f.FLUJOTRABAJOID
                                        Control.Text = f.NOMACTIV & "-" & f.ASUNTO
                                        td.Controls.Add(New LiteralControl(String.Format("<strong>{0} - {1}</strong>  ", f.HORACALINI, f.HORACALFIN)))
                                        td.Controls.Add(Control)
                                        td.Controls.Add(New LiteralControl("<br>"))

    else

    td = New TableCell
                        td.Text = String.Empty

      End If

      Next

    esta validacion esta mal 

    Dim query = (From f In Lis Where Hora >= CType(f.HORACALINI, TimeSpan)  And  CType(f.HORACALFIN, TimeSpan) <=Hora Select f).ToList

    he probado muchas otras maneras y no se como solucionarlo 

    viernes, 5 de agosto de 2016 14:59

Respuestas

  • hola

    de donde sala "Lis" ?

    ademas porque si conoces que es una fecha debes aplicar el Ctype en HORACALINI y HORACALFIN ? estas deberian ser del tipo datetime

    no deber aser

    Dim Hora= Inicio.AddMinutes(30 * i)
    
    Dim query = (From f In Lis Where CType(f.HORACALINI, DateTime) > Hora  And  CType(f.HORACALFIN, DateTime) <= Hora Select f).ToList()


    no puedes comparar una hora sin darle un contexto del dia, por eso la propiedad deberia ser una fecha

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    viernes, 5 de agosto de 2016 16:25