DuringTheDay.vb

    <ExtentionMethod()> _
    Public Sub DuringTheDay(ByVal crit As ICriteria, ByVal dateToUse As DateTime)
        Dim min As DateTime = New DateTime(dateToUse.Year, dateToUse.Month, dateToUse.Day, 0, 0, 0)
        Dim max As DateTime = New DateTime(dateToUse.Year, dateToUse.Month, dateToUse.Day, 23, 59, 59)

        crit.Add(Expression.Between("DatePublished", min, max))
    End Sub