From 38972e3f329c6959cc8917f51e766da8c39e2de7 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 23 Oct 2026 10:07:12 +0200
Subject: [PATCH] cAutomailversand, etc.

---
 initATLASAufschubkonten/frmStartOptions.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index db2a37a..d29cd73 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -6415,8 +6415,8 @@ weiter:
         ElseIf txtUTADate.Text <> "" AndAlso IsDate(txtUTADate.Text) Then
             datumString = txtUTADate.Text
             SQLWhere = "And CAST(U.Rechnungsdatum AS date) = '" & datumString & "'"
-            von = New Date(datumString)
-            bis = New Date(datumString)
+            von = CDate(datumString)
+            bis = CDate(datumString)
         End If