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