Что нового
Автор:
Фильтры

Как передать переменным из календаря пораздельно YYYY, MM, DD

A

at

Гость
Внимательно читал справку, но не нашёл (или не понял), как можно вывести из календаря пораздельно: YYYY, MM, DD и присвоить эти значения переменным $_Day; $_Mons; $_Year.
Прошу подсказать. Делаю так, но не уверен, что правильно.
Код: 
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$_Form = GUICreate("Form1", 201, 136, 192, 114)
$_Date = GUICtrlCreateDate("2012/12/13 19:07:3", 32, 24, 138, 21)
$_Button = GUICtrlCreateButton("Button1", 40, 72, 115, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $_Button


    $DTM_SETFORMAT_ = 0x1032    
		$_Style = "yyyyMMdd"
			GUICtrlSendMsg($_Date, $DTM_SETFORMAT_, 0, $_Style)
				$_String_Date = GUICtrlRead($_Date)
	
				$_Year = StringLeft($_String_Date, 4)
				$_Month = StringMid($_String_Date, 5, 2)
				$_Day = StringMid($_String_Date, 7, 2)
	
				$_Format_Date = StringFormat('%s%s%s', $_Year, $_Month, $_Day)
		ConsoleWrite($_String_Date & ' = ' & $_Format_Date & @CRLF )
    EndSwitch
WEnd
 
W

WSWR

AutoIT Гуру
Сообщения
941
Репутация
363
Не оно?
Код: 
@YEAR, @MON, @MDAY

http://autoit-script.ru/autoit3_docs/macros.htm
 
Автор
A

at

Гость
WSWR, спасибо за подсказку, но меня интересуют не макросы. Дополнил свой первый пост.
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Код: 
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <GUIDateTimePicker.au3>
#include <Date.au3>

#Region ### START Koda GUI section ### Form=
$_Form = GUICreate("Form1", 201, 136, 192, 114)
$_Date = GUICtrlCreateDate("2012/12/13 19:07:3", 32, 24, 138, 21)
$_hDate = GUICtrlGetHandle($_Date)
$_Button = GUICtrlCreateButton("Button1", 40, 72, 115, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $_Button
			_GUICtrlDTP_SetFormat($_hDate, "yyyy/MM/dd")
			$_String_Date = GUICtrlRead($_Date)
			_GUICtrlDTP_SetFormat($_hDate, _Date_Time_GetSystemTime())
			
			Dim $aDate, $aTime
			_DateTimeSplit($_String_Date, $aDate, $aTime)
			
			$_Year = $aDate[1]
			$_Month = $aDate[2]
			$_Day = $aDate[3]
			
			$_Format_Date = StringFormat('%s%s%s', $_Year, $_Month, $_Day)
			ConsoleWrite($_String_Date & ' = ' & $_Format_Date & @CRLF)
	EndSwitch
WEnd
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
M Передать переменные exe файлу Общие вопросы по AutoIt 7
A Сделать окно активным и передать туда нажатие клавиши Общие вопросы по AutoIt 15
D Передать в Send({NUMPAD}) переменную Общие вопросы по AutoIt 1
Dimmak Передать тектовые данные из одного скрипта в другой Общие вопросы по AutoIt 2
F Передать другому приложению свой PID или возможно как-то по другому... Общие вопросы по AutoIt 3
Похожие темы
Передать переменные exe файлу
Сделать окно активным и передать туда нажатие клавиши
Передать в Send({NUMPAD}) переменную
Передать тектовые данные из одного скрипта в другой
Передать другому приложению свой PID или возможно как-то по другому...
Верх