#include <Date.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Local $hGUI = GUICreate("Установка даты", 400, 400)
Local $lab =GUICtrlCreateLabel("Сегодня", 150,10,200,25)
GUICtrlSetFont($lab,15)
Local $iddata= GUICtrlCreateLabel("дата не установлена", 150,30,200,100)
GUICtrlSetFont($iddata,15)

Local $idbutton = GUICtrlCreateButton("узнать дату", 100, 300, 185, 50)
GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $idbutton

GUICtrlSetData($iddata, _NowDate())

Case $GUI_EVENT_CLOSE
ExitLoop

EndSwitch
WEnd