Private Sub checkdate()
        datBeginnzeitTextBox.Clear()
        datEndzeitTextBox.Clear()
 
        'Eingabezeiten festlegen
        Dim startEingabeDate As New Date(Now.Year, Now.Month, Now.Day, 7, 30, 0)
        Dim endeEingabeDate As New Date(Now.Year, Now.Month, Now.Day, 20, 0, 0)
 
        datBeginnzeitTextBox.Text = startEingabeDate.ToString
        datEndzeitTextBox.Text = endeEingabeDate.ToString
 
        If Now < endeEingabeDate Then
            MessageBox.Show("Du darfst noch Daten einschreiben!")
 
        Else
            MessageBox.Show("Du darfst keine Daten mehr einschreiben!")
 
        End If