Artem_Butenko
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: #include <GUIConstantsEx.au3>
#include <Date.au3>
Global $sYEAR = @YEAR, $sMON = @MON, $sMDAY = @MDAY, $fChange, _
$iStart = TimerInit()
GUICreate('Test', 213, 109)
$nDate = GUICtrlCreateDate('', 8, 45, 194, 21)
GUICtrlSendMsg(-1, 0x1032, 0, 'dd.MM.yyyy')
$nLabel = GUICtrlCreateLabel('Текущая дата (' & @MDAY & '.' & @MON & '.' & @YEAR & _
'), вы можете ' & @CRLF & ' поменять. Выберите нужную дату:', 8, 8, 374, 35)
$nButton1 = GUICtrlCreateButton('Поменять', 20, 72, 75, 25)
$nButton2 = GUICtrlCreateButton('Отмена', 110, 72, 75, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
If $fChange Then
If MsgBox(33, 'Question', 'Вернуть начальную дату?') = 1 Then
_Date_Back()
EndIf
EndIf
Exit
Case $nButton1
$aDate = StringSplit(GUICtrlRead($nDate), '.')
If $aDate[0] <> 3 Then ContinueLoop
_SetDate($aDate[1], $aDate[2], $aDate[3])
$fChange = True
GUICtrlSetState($nButton2, $GUI_ENABLE)
GUICtrlSetData($nLabel, 'Текущая дата (' & @MDAY & '.' & @MON & '.' & @YEAR & _
'), вы можете ' & @CRLF & ' поменять. Выберите нужную дату:')
Case $nButton2
_Date_Back()
GUICtrlSetData($nLabel, 'Текущая дата (' & @MDAY & '.' & @MON & '.' & @YEAR & _
'), вы можете ' & @CRLF & ' поменять. Выберите нужную дату:')
GUICtrlSetData($nDate, '')
EndSwitch
WEnd
Func _Date_Back()
Local $s_Date_Back, $a_Split, $i_Diff = Round(TimerDiff($iStart) / 1000)
$s_Date_Back = _DateAdd('s', $i_Diff, $sYEAR & '/' & $sMON & '/' & $sMDAY)
$a_Split = StringSplit($s_Date_Back, '/')
If $a_Split[0] = 3 Then
_SetDate($a_Split[3], $a_Split[2], $a_Split[1])
$fChange = False
EndIf
EndFunc ;==>_Date_Back |
Немного не понимаю логику скрипта, каким образом убрать GUI?
Требуется лишь простая последовательность действий:
Цитата: 1. Узнаём текущую дату и записываем ее в переменную.
2. Устанавливаем необходимую дату.
3. Выполняем любое действие.
4. Возвращаем текущую дату. |
|
