Date Picker auslesen

Hallo zusammen, ich habe ein Problem mit dem Date picker. Ich möchte, dass der datepicker ausgelesen wird, und Das angegebene Datum in Input1 eingegeben wird. Was habe ich falsch gemacht?

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
Const $DATUMSFORMAT = "dddd, dd.MM.yyyy"
Const $DTM_SETFORMAT_ = 0x1032

$akt_datum = @MON & "." & @WDAY & "." & @YEAR
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Datum eingeben", 196, 95, 194, 126)
$Label1 = GUICtrlCreateLabel("Bitte gebe das Datum an", 32, 8, 123, 17)
$Button1 = GUICtrlCreateButton("Weiter", 8, 64, 73, 25,$BS_DEFPUSHBUTTON)
$Date1 = GUICtrlCreateDate($akt_datum, 16, 32, 153, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 104, 64, 73, 25)
GUISetState()
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
GUIDelete($Form1)
ExitLoop
EndSwitch
WEnd
$Datum = GUICtrlRead($Date1)

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Output", 849, 514, 192, 102)
$Input1 = GUICtrlCreateInput("Datum: " & GUICtrlRead($Date1), 8, 8, 617, 500)
$Button3 = GUICtrlCreateButton("Kopieren", 632, 192, 209, 65)
$Button4 = GUICtrlCreateButton("Schließen", 664, 280, 145, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
ClipPut (GUICtrlRead($Input1))
Case $Button4
Exit
EndSwitch
WEnd

Danke Ich hab knapp 3 Stunden überlegt was ich falsch gemacht habe