#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUICreate("Set Date", 220, 60)
$Input = GUICtrlCreateInput("", 20, 20, 100, 20)
GUISetState()
_SetTimeProc()
AdlibRegister("_SetTimeProc", 1000)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _SetTimeProc()
GUICtrlSetData($Input, 'Дата : ' & @MDAY & '/' & @MON & '/' & @YEAR);
EndFunc