#include <GUIConstantsEx.au3>
#include <DateTimeConstants.au3>

; Opt('MustDeclareVars', 1) ; принуждает объявлять все переменные

Example1()
Example2()
Example3()
Example4()

; Пример 1
Func Example1()
	Local $date, $msg

	GUICreate("Дата", 200, 200, 800, 200)
	$date = GUICtrlCreateDate("1953/04/25", 10, 10, 185, 20)
	GUISetState()

	; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто
	Do
		$msg = GUIGetMsg()
	Until $msg = $GUI_EVENT_CLOSE

	MsgBox(4096, "Дата", GUICtrlRead($date))
	GUIDelete()
EndFunc

; Пример 2
Func Example2()
	Local $n, $msg

	GUICreate("Дата", 200, 200, 800, 200)
	$n = GUICtrlCreateDate("", 10, 10, 100, 20, $DTS_SHORTDATEFORMAT)
	GUISetState()

	; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто
	Do
		$msg = GUIGetMsg()
	Until $msg = $GUI_EVENT_CLOSE

	MsgBox(4096, "Дата", GUICtrlRead($n))
	GUIDelete()
EndFunc

; Пример 3
Func Example3()
	Local $date, $DTM_SETFORMAT_, $style

	GUICreate("Дата", 200, 200, 800, 200)
	$date = GUICtrlCreateDate("1953/04/25", 10, 10, 185, 20)

	; для выбора определённого формата по умолчанию
	$DTM_SETFORMAT_ = 0x1032 ; $DTM_SETFORMATW
	$style = "yyyy/MM/dd HH:mm:ss"
	GUICtrlSendMsg($date, $DTM_SETFORMAT_, 0, $style)

	GUISetState()
	While GUIGetMsg() <> $GUI_EVENT_CLOSE
	WEnd

	MsgBox(4096, "Время", GUICtrlRead($date))
EndFunc

; Пример 4
Func Example4()
	Local $n, $msg

	GUICreate("Время", 200, 200, 800, 200)
	$n = GUICtrlCreateDate("", 20, 20, 100, 20, $DTS_TIMEFORMAT)
	GUISetState()

	; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто
	Do
		$msg = GUIGetMsg()
	Until $msg = $GUI_EVENT_CLOSE

	MsgBox(4096, "Время", GUICtrlRead($n))
	GUIDelete()
EndFunc