Код:
Func _DateFormat($Date, $style)
	Local $hGui = GUICreate("My GUI get date", 200, 200, 800, 200)
	Local $idDate = GUICtrlCreateDate($Date, 10, 10, 185, 20)
	GUICtrlSendMsg($idDate, 0x1032, 0, $style)
	Local $sReturn = GUICtrlRead($idDate)
	GUIDelete($hGui)
	Return $sReturn
EndFunc   ;==>_DateFormat