EORI Antrag Hinweis, Aufschubkontenabgleich verbessert

VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.vb

@@ -36,12 +36,12 @@ Public Class frmDatumsabfrage
 
 
 
-    Public Datum As Date = CDate(Now.ToShortDateString)
+    Public Datum As Date = CDate(Now)
     Public exceptedCountries As String
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         Label1.Text = ""
 
-        If onlypastDate And CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then
+        If onlypastDate AndAlso CDate(dtp_date.Value) > CDate(Now) Then
             Label1.Text = "Muss heute oder früher sein!"
             Me.DialogResult = DialogResult.None
             Exit Sub
@@ -60,7 +60,7 @@ Public Class frmDatumsabfrage
     End Sub
 
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
-        Datum = CDate(Now.ToShortDateString)
+        Datum = CDate(Now)
 
         If panelLaender Then
             exceptedCountries = getValues()