Dim BegEnd As New List(Of Date)
        Dim Anzeige_Beg As Date
        Dim Anzeig_End As Date
 
 
        Me.SteuernBindingSource.RemoveFilter()
        Dim Sel_Datum As Date
 
 
        Dim ts_Zeit As TimeSpan = Now.TimeOfDay
        Dim ts_A As TimeSpan = New Date(Today.Year, Today.Month, Today.Day, 0, _
          0, 0, 0).TimeOfDay
        Dim ts_B As TimeSpan = New Date(Today.Year, Today.Month, Today.Day, 23, _
        59, 59, 999).TimeOfDay
 
        If ts_Zeit >= ts_A AndAlso ts_Zeit <= ts_B Then
 
            Anzeige_Beg = New Date(Sel_Datum.Year, Sel_Datum.Month, _
              Sel_Datum.Day, 0, 0, 0)
            Anzeig_End = New Date(Sel_Datum.Year, Sel_Datum.Month, _
            Sel_Datum.Day, 23, 59, 59, 999)
        End If
 
        BegEnd.Add(Anzeige_Beg)
        BegEnd.Add(Anzeig_End)
 
        Dim _Detail_filter As String = String.Empty
        Me.SteuernBindingSource.Filter = _Detail_filter

Public Class frmMonthCalender
 
 
    Dim WithEvents mc As New MonthCalendar With
        {.Parent = Me, .Size = New Drawing.Size(200, 200)}
 
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
    Dim dgv As New DataGridView With
        {.Parent = Me, .DataSource = bs, .Top = 220}
 
    Dim WithEvents btnClear As New Button With
        {.Parent = Me, .Left = 220, .Text = "All"}
 
    Dim rndm As New Random(1234)
 
 
    Private Sub frmMonthCalender_Load(sender As Object, _
        e As EventArgs) Handles MyBase.Load
 
        dt.Columns.Add("ID", GetType(Integer))
        dt.Columns.Add("DATE", GetType(DateTime))
 
        For i As Integer = 0 To 1000
            dt.Rows.Add(i, GetRandomDate)
        Next i
 
        bs.DataSource = dt
 
        With mc.DataBindings
            .Add("SelectionStart", bs, "Date", True)
            .Add("SelectionEnd", bs, "Date", True)
        End With
 
        With dt.AsEnumerable
            mc.MinDate = _
              .Min(Of DateTime)(Function(row) row.Field(Of Date)("Date"))
            mc.MaxDate = _
              .Max(Of DateTime)(Function(row) row.Field(Of Date)("Date"))
        End With
 
    End Sub
 
 
    Private Sub mc_DateSelected(sender As Object,
                    e As DateRangeEventArgs) Handles mc.DateSelected
 
        bs.Filter =
            "Date >= " & GetBindingsourceDate(e.Start) &
            " AND Date <= " & GetBindingsourceDate(e.End)
    End Sub
 
 
    Private Sub btnClear_Click(sender As Object, _
        e As EventArgs) Handles btnClear.Click
        bs.RemoveFilter()
    End Sub
 
 
    Private Function GetRandomDate() As Date
        Dim start As Date = New Date(2017, 1, 1)
        Return start.AddDays(rndm.Next(0, 400))
    End Function
 
 
    Private Function GetBindingsourceDate(dat As Date) As String
        Return "#" & dat.Month.ToString & "/" &
            dat.Day.ToString & "/" &
            dat.Year.ToString & "#"
    End Function
End Class

  Private Sub Kalender_ValueChanged(sender As Object, value As Date) Handles _
    Kalender.ValueChanged
 
        lbl_datum.Text = Kalender.AktDatum.ToShortDateString
 
        Dim filterGesamt As String = String.Empty
        Dim filterA As String = String.Empty
        Dim sel_Datum_von As Date = Kalender.AktDatum
        Dim sel_Datum_bis As Date = Kalender.AktDatum
        Dim _Beginn, _Ende As Date
 
        _Beginn = New Date(sel_Datum_von.Year, sel_Datum_von.Month, _
          sel_Datum_von.Day, 0, 0, 0)
        _Ende = New Date(sel_Datum_von.Year, sel_Datum_von.Month, _
        sel_Datum_von.Day, 23, 59, 59)
        filterA = String.Format("[{0}] >= '{1}' AND [{0}] <= '{2}'", _
        "Datum", _Beginn, _Ende)
        filterGesamt = String.Concat(filterA)
        Me.SteuernBindingSource.Filter = filterGesamt
    End Sub